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ABSTRACT 


In  this  thesis,  the  design  of  a  fault  tolerant  mieroeontroller  for  the  Configurable 
Fault  Tolerant  Proeessor  is  presented.  The  Configurable  Fault  Tolerant  proeessor  is  a 
spaeebome  Field  Programmable  Gate  Array  experiment  platform  susceptible  to  Single 
Event  Upsets.  Fault  tolerance  is  needed  to  control  the  experiment  in  higher  radiation 
orbits  and  the  microcontroller  will  offer  enhanced  functionality  for  experiments.  The  16- 
bit  microcontroller  is  contained  within  the  resources  of  a  single  Field  Programmable  Gate 
Array.  It  includes  RAM,  microprocessor,  FPGA  configuration  and  configuration 
readback  modules,  PC/104  interface  module,  and  fault  detection  and  correction 
capabilities.  Fault  tolerance  is  implemented  via  triple  modular  redundancy  and  Hamming 
error  correction  coding.  Complete  source  code  for  the  microcontroller  and  C-based 
compilation  tools  are  included  as  appendices. 
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EXECUTIVE  SUMMARY 


Spaceborne  computer  hardware  is  faced  with  many  challenges.  One  is  the 
inability  to  alter  hardware  as  mission  needs  ehange  after  initial  system  deployment.  The 
use  of  Field  Programmable  Gate  Arrays  (FPGA)s  offers  an  alternative  to  conventional 
fixed-function  hardware  and  allows  for  reconfiguration  in  orbit.  Another  problem  with 
computer  hardware  in  spaee  is  the  effeet  from  cosmic  radiation  that  causes  Single  Event 
Upsets  (SEU)s.  SEUs  are  routinely  eountered  via  fault  tolerant  teehniques  such  as  Triple 
Modular  Redundancy  (TMR)  and  Error  Correction  Coding  (ECC).  The  reeonfigurability 
of  EPGAs  comes  with  a  eost;  SEUs  in  EPGAs  can  cause  not  only  data  errors  that  would 
exist  in  conventional  fixed  funetion  designs  but  ean  also  affect  configuration  memory  and 
eould  potentially  alter  hardware  funetion. 

The  Configurable  Eault  Tolerant  Proeessor  (CFTP)  was  ereated  in  order  to  test  the 
suitability  of  Eield  Programmable  Gate  Arrays  (EPGA)  in  space  applieations.  It  contains 
two  EPGAs  and  associated  support  hardware.  One  EPGA  is  designated  the  controller, 
XI,  while  the  other  is  designated  the  experiment,  X2.  Besides  implementing  TMR  and 
ECC  techniques  that  one  would  use  with  fixed-funetion  hardware,  CETP  also  implements 
eonfiguration  scrubbing.  Configuration  scrubbing  is  comparing  the  eonfiguration  of  a 
EPGA  with  a  stored  copy  and  correcting  the  values  found  to  be  in  error.  CETP  is 
controlled  by  a  PC/ 104  eomputer  board  whieh  is  then  eonnected  to  the  spaeecraft 
computer  for  control  and  communication  to  the  ground  station.  The  EPGA  controller 
design  currently  in  use  and  the  PC/ 104  computer  are  not  fault  tolerant  and  make  CETP 
unsuitable  for  deployment  in  high-radiation  orbits. 

The  objective  of  this  thesis  was  to  re-implement  the  XI  control  EPGA  by  adding 
fault  tolerance  and  inserting  a  mierocontroller  to  manage  the  fixed-function  blocks.  Eault 
tolerance  was  obtained  through  use  of  TMR  and  ECC  wherever  possible.  The 
mieroeontroller  on  XI  offers  more  flexibility  in  operation  of  CETP,  including  more 
complex  functionality  of  XI  blocks.  With  dedicated  functional  blocks,  changing  the  way 


XV 


they  cooperate  requires  complex  hardware  changes.  With  a  microcontroller,  simply 
changing  the  program  offers  the  same  results  with  a  much  faster  development  time. 

This  thesis  describes  the  process  of  selecting  the  microcontroller,  modifying  it  for 
fault  tolerance,  and  changing  its  memory  interface  to  best  use  the  FPGA  block  RAMs. 
Two  different  memory  options  for  the  microcontroller  are  explored  in  detail.  A  software 
tool  is  created  to  load  compiler  output  into  the  FPGA  configuration.  Additionally,  error 
detection  capabilities  built  into  the  TMR  and  ECC  implementations  are  forwarded  to  a 
newly  created  error  reporting  system. 

After  describing  the  microcontroller,  this  thesis  discusses  the  alterations  to 
existing  functional  blocks  for  use  with  the  microcontroller.  An  interrupt  controller  is 
constructed  to  enable  more  efficient  interrupt-driven  I/O.  Detailed  instructions  for  adding 
new  I/O  devices  to  the  microcontroller  are  given.  A  step-by-step  guide  for  programming 
and  loading  software  into  the  microcontroller  is  presented.  Finally,  source  code  for 
creating  the  configuration  for  the  XI  FPGA  is  included. 

Early  versions  of  the  design  were  tested  as  an  experiment  on  the  CETP  hardware. 
The  final  version  was  also  successfully  tested  on  the  CETP  hardware  and  with  a  software- 
based  simulation  tool.  The  result  is  more  elaborate  operations  such  as  eliminating  the 
PC/104  computer  board  and  using  XI  to  format  reports  are  now  realizable. 
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I.  INTRODUCTION 


A,  CFTP  OBJECTIVE 

Spaceborne  systems  are  limited  to  the  resourees  present  at  the  time  of  initial 
system  deployment.  Conventional  fixed-funetion  eomputer  hardware  is  subjeet  to 
obsoleseenee  and  offers  no  eapability  for  reeonfiguration  if  system  needs  ehange. 
Another  eoneem  faeing  spaeebome  systems  is  the  effeet  of  eosmie  radiation  resulting  in 
Single-Event  Upsets  (SEU)  that  eauses  errors  in  eomputer  results  [1].  Eor  this  reason, 
properly  designed  spaeebome  systems  must  be  fault  tolerant.  Eield  Programmable  Gate 
Arrays  (EPGA)  offer  a  solution  for  providing  reeonfigurable  hardware  but  with  a  eaveat: 
their  eonfiguration  is  stored  in  Random  Aeeess  Memory  (RAM),  inereasing  their 
suseeptibility  to  SEUs  and  requiring  speeialized  teehniques  to  eounter  them.  The 
Configurable  Eault  Tolerant  Proeessor  (CETP)  is  a  system  designed  speeifieally  for  the 
purpose  of  on-orbit  testing  and  evaluating  the  reliability  of  instantiated  reliability- 
enhaneed  eireuits  in  EPGAs. 

CETP  is  a  projeet  of  the  Spaee  Systems  Aeademie  Group  at  the  Naval 
Postgraduate  Sehool  loeated  in  Monterey,  California.  It  eonsists  of  two  main  assemblies: 
a  PC/104  eomputer  board  and  an  experiment  board.  The  PC/104  eomputer  board  is 
intended  to  eontrol  the  experiment  board  and  interfaee  with  the  spaeeeraft  for 
eommunieation  with  the  ground  station. 

The  experiment  board  eontains  two  Xilinx  EPGAs  and  various  other  eomponents. 
One  EPGA  is  designated  as  a  eontroller,  XI,  and  the  other  is  designated  the  experiment, 
X2.  The  eontrol  EPGA  eontrols  and  eonfigures  the  experiment  EPGA  as  well  as  handling 
eommunieation  between  the  experiment  EPGA  and  the  PC/104  processor  board.  Even 
when  the  experiment  EPGA  contains  fault  tolerant  experiments,  the  current  XI  design 
and  the  PC/ 104  computer  board  are  not  fault  tolerant. 
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A  CFTP  flight  board  was  launched  into  a  low  earth  orbit  on  Mareh  9,  2007  aboard 
the  United  States  Naval  Aeademy's  MidStar  satellite  [2],  CFTP  funetioned  as  designed 
and  the  platform  was  proven  a  sueeess.  The  work  done  in  this  thesis  is  not  yet 
implemented  in  the  orbiting  platform  due  to  the  laek  of  funetional  ground  support  to  the 
MidStar  satellite. 

B,  RESEARCH  OBJECTIVES 

The  researeh  objeetives  of  this  thesis  were  to  redesign  the  proeesses  running  in 
the  XI  eontrol  FPGA  to  inelude  fault  toleranee  and  to  add  a  mieroeontroller  to  manage 
the  funetional  bloeks  found  within.  The  additional  flexibility  and  funetionality  will  allow 
for  mueh  more  robust  experiment  implementations,  while  inereased  fault  toleranee  will 
allow  for  more  reliable  operation  in  higher  radiation  orbits.  Finally,  this  thesis  should 
serve  as  a  referenee  manual  for  those  using  the  revised  XI  eontrol  system  in  future 
experiments. 

C.  OVERVIEW 

Chapter  II  eontains  a  brief  deseription  of  CFTP  hardware.  Chapter  III  gives  an 
idea  of  what  ehanging  to  a  mieroeontroller  aeeomplished  and  how  the  existing  hardware 
ehanged.  Chapter  IV  diseusses  the  seleetion  of  the  proeessor  used  as  a  mieroeontroller 
and  introduees  the  XSOC  System-on-a-ehip  that  was  seleeted  [3].  Chapter  V  details  the 
methods  used  to  implement  fault  toleranee,  ineluding  the  voter  design  for  Triple  Modular 
Redundaney  (TMR).  Chapter  VI  details  the  ehanges  that  were  made  to  the  XSOC  SoC 
for  use  with  CFTP.  Chapter  VII  details  the  ECC  memory  subsystem  that  was  designed 
for  XSOC  as  well  as  a  smaller-eapaeity  TMR  alternative  that  was  not  seleeted.  Chapter 
VIII  is  a  guide  for  how  to  add  new  I/O  modules  for  use  with  the  mieroeontroller. 
Chapters  IX  and  X  indieate  how  the  existing  X2  eonfiguration  and  X2  eonfiguration 
readbaek  modules  were  integrated  with  the  mieroeontroller.  Chapter  XI  deseribes  the 
error  reporting  subsystem  and  the  global  error-reporting  bus.  Chapter  XII  shows  how  the 
PC/ 1 04  interfaee  was  altered  for  use  with  the  mieroeontroller.  Chapter  XIII  deseribes  the 
design  of  a  module  eontaining  a  timestamp  eounter,  programmable  timer  and  interrupt 
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controller.  Chapter  XIV  eontains  information  on  how  to  eompile  and  load  software  into 
the  mieroeontroller.  Chapter  XV  summarizes  this  thesis  and  suggests  follow-on  work. 

Appendix  A  eontains  the  Verilog  HDL  souree  eode  used  to  ereate  the 
mieroeontroller  and  sample  I/O  module.  Appendix  B  eontains  the  VHDL  souree  eode  for 
modules  used  in  the  mieroeontroller  that  were  modified  from  the  previous  non-fault 
tolerant  version  of  XI.  Appendix  C  eontains  the  C  souree  eode  used  to  ereate  a  format 
eonversion  tool  neeessary  for  the  software  loading  proeess  and  a  modified  version  of  the 
souree  eode  used  to  ereate  the  XSOC  runtime  library.  Finally,  Appendix  E  eontains  the 
XSOC  Lieense  Agreement. 
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II.  CFTP  HARDWARE 


The  CFTP  hardware  consists  of  two  major  assemblies:  a  PC/104  computer  and  the 
experiment  board.  They  are  connected  via  a  16-bit  PC/ 104  bus. 

A.  PC/104  COMPUTER 

Several  different  PC/ 104  computer  boards  have  been  used  to  control  the  various 
versions  of  the  CFTP  experiment.  All  use  the  Linux  operating  system  and  are  connected 
via  a  PC/104  bus  to  the  experiment  board.  All  communication  to  and  from  the 
experiment  board  is  done  through  the  PC/ 104  computer.  The  PC/ 104  computer  formats 
and  forwards  data  to  the  spacecraft  Command  and  Data  Handler  (CDH).  Additionally, 
the  PC/104  computer  is  responsible  for  loading  configuration  data  into  XL  The  PC/104 
computer  is  not  fault  tolerant.  The  PC/104  computer  board  is  mounted  beneath  the  CFTP 
board  in  the  flight  assembly  shown  in  Figure  1 . 

B.  EXPERIMENT  BOARDS 

There  are  several  versions  of  experiment  boards.  The  description  below  is 
specific  to  the  flight  board  except  where  noted.  A  second  version  has  a  much  larger 
experiment  FPGA  (a  Virtex-II  device)  and  another  is  constructed  with  standard  non- 
radiation-hardened  parts,  but  the  control  FPGA  is  the  same  basic  model  in  all  variants. 
Figure  1  shows  a  photograph  of  a  CFTP  flight  board. 
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Experiment  Control  FPGA  EEPROM 


Flash  Memory 


Figure  1 .  CFTP  Flight  Board  Photograph 


The  flight  board  contains  two  Xilinx  Virtex  XQVR-600-4CB228  radiation- 
hardened  FPGAs,  a  Xilinx  QPro  XQR18V04  radiation-tolerant  4Mbit  configuration 
Programmable  Read-Only  Memory  (PROM),  Intel  28F320C3  32Mbit  Flash  RAM  and 
six  Elpida  F1M5225405B-75  256Mbit  PC  133  Synchronous  Dynamic  Random  Access 
Memories  (SDRAM). 

1.  Control  FPGA 

This  FPGA,  one  of  two  Virtex  XQVR-600s  on  the  experiment  board,  is  directly 
connected  to  the  PC/104  interface,  the  XQR18V04  configuration  Flash  PROM,  the 

28F320C3  32Mbit  Flash  RAM,  and  the  experiment  FPGA.  It  is  contained  in  a  Ceramic 
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Quad  Flat-Pack  (CQFP)  228  pin  package.  Relevant  FPGA  specifieations  are  listed  in 
Table  1.  The  eontrol  FPGA  has  several  funetions,  ineluding  eommunieation  between  the 
PC/104  computer  and  the  X2  experiment  FPGA  and  initializing  and  eheeking  the  X2 
eonfiguration. 


Device 

Equivalent 

System 

Gates 

CLB 

Array 

Logic 

Cells 

Maximum 

Available  I/O  Pins 

Block  RAM  Bits 

XQVR600 

661,111 

48x72 

15,552 

162 

98,304  (24  4Kbit  devices) 

Table  1.  XQVR-600  FPGA  Specifieations  [4] 


2.  Experiment  FPGA 

This  FPGA  is  directly  connected  to  the  control  FPGA  and  the  six  Elpida 
HM5225405B-75  256Mbit  PC  133  SDRAMs.  It  is  also  direetly  eonneeted  to  the  Intel 
32Mbit  Flash  RAM.  The  experiment  FPGA  is  intended  to  hold  experiments  for  testing. 
The  flight  board  also  uses  an  XQVR-600  Virtex  FPGA.  As  mentioned  earlier,  some 
versions  of  CFTP  use  a  mueh  larger  Virtex  II  FPGA  as  the  experiment  FPGA. 

3.  XQR18V04  Configuration  Flash  PROM 

This  PROM  contains  the  XI  Control  FPGA  eonfiguration  information.  XI 
automatically  loads  the  configuration  at  power-on  as  per  normal  Xilinx  FPGA 
proeedures.  Most  of  the  available  4Mbit  spaee  is  used  to  hold  XI  configuration  data. 
Future  projeets  might  use  the  extra  memory  for  program  storage  by  adding  the 
eonfiguration  PROM  as  another  XI  deviee. 

4.  Intel  28F320C3  32Mbit  Flash  RAM 

This  RAM  eontains  eonfiguration  information  for  the  X2  experiment  FPGA.  The 
XQVR-600  FPGA  requires  3,607,968  bits  for  a  full  eonfiguration;  there  is  enough 
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storage  in  this  device  to  hold  nine  different  X2  configurations  [5].  X2  is  configured  via  a 
SelectMap  configuration  process  implemented  in  a  functional  block  in  XI  and  not  via  an 
automatic  Xilinx  startup  process  as  in  XI. 

5.  6  Elpida  256Mbit  PC  133  SDRAMs 

This  SDRAM  is  connected  to  the  experiment  FPGA  (X2)  and  is  not  directly 
accessible  by  XI.  It  has  a  total  capacity  of  192  megabytes;  less  capacity  would  be 
available  for  use  in  a  fault  tolerant  configuration.  The  version  of  CFTP  with  a  Virtex  II 
experiment  FPGA  does  not  have  SDRAM. 

C.  SUMMARY 

This  design  was  documented  in  theses  by  Ebert  and  Johnson  [6],  [7].  Flight 
experiments  are  described  in  theses  by  Coudeyras  and  Caldwell  [8],  [9].  Chapter  III 
describes  the  functions  that  the  current  version  of  the  XI  configuration  performs  and  how 
they  will  be  modified  and  enhanced  with  a  microcontroller  architecture. 
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III.  MICROCONTROLLER  DESIGN 


A,  OBJECTIVE 

The  CFTP  microcontroller  should  implement  fault  tolerance  in  the  XI  control 
FPGA  as  well  as  adding  additional  functionality  associated  with  programmed  code  and 
software-controlled  modules.  While  the  requirement  for  fault  tolerance  is  clear,  the 
choice  to  change  to  a  microcontroller  requires  more  justification. 

Using  programmed  code  gives  many  advantages  to  XI  over  fixed-function 
hardware.  Firstly,  it  allows  module  reuse.  An  interface  to  a  device  may  be  used  for  more 
than  one  process  without  hardware  duplication.  Secondly,  with  a  centralized  control 
structure  adding  additional  modules  only  requires  interfacing  with  the  microcontroller. 
Busses  and  control  lines  between  functional  blocks  are  reduced  or  eliminated. 
Implementing  complicated  functions  is  made  easier  as  programmed  code  requires  less 
effort  to  develop  compared  with  designing  large  state  machines.  Finally,  using 
programmed  code  makes  it  easier  to  implement  changes  to  Xl's  operation  since 
programming  in  C  is  easier  than  programming  in  a  Hardware  Description  Language 
(HDL).  CFTP  experimenters  don't  have  to  understand  how  all  the  XI  hardware 
works-only  how  the  hardware  interfaces  operate  with  the  microcontroller.  The  main 
disadvantage  of  using  a  microcontroller  is  that  it  will  likely  take  more  clock  cycles  to 
complete  operations  than  its  fixed-function  HDL  equivalent. 

Besides  simply  passing  data  between  the  PC/104  computer  and  X2,  XI  can  now 
function  as  a  full-fledged  data  processing  unit  and  perform  tasks  such  as  formatting  status 
reports  or  implementing  a  full-featured  communications  protocol.  It  should  even  be 
possible  to  eliminate  the  PC/104  computer  board  and  have  the  XI  microcontroller 
communicate  directly  with  the  CDH  or  with  the  satellite  downlink.  Figure  2  contains  a 
block  diagram  of  the  main  functional  blocks  of  the  experiment  board  while  Figure  3 
shows  the  configuration  after  the  microcontroller  is  implemented. 
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B. 


FUNCTIONAL  BLOCKS 


There  are  five  main  funetional  blocks  in  the  fixed- function  XI  configuration. 
They  are  the  PC/104  interface,  64-bit  timestamp  counter,  SelectMap  configuration 
module,  SelectMap  readback  module,  and  X2  interface.  These  blocks  were  implemented 
as  Very-high-speed  integrated  circuits  Hardware  Description  Language  (VHDL) 
modules,  with  the  configuration  data  for  the  FPGAs  generated  by  the  Xilinx  ISE 
Computer-Aided  Design  (CAD)  tool  [10].  Figure  2  shows  the  block  diagram  of  XI 
before  the  microcontroller  was  added. 


Figure  2.  CFTP  Block  Diagram  -  Before  Microcontroller 

Figure  3  shows  the  block  diagram  after  the  microcontroller  was  added.  Some 
functional  blocks  were  rewritten  in  Verilog  while  others  were  only  slightly  modified  and 
left  as  VHDL  modules.  Although  it  would  have  been  possible  to  eliminate  the  SelectMap 
modules  and  perform  their  tasks  in  software  by  adding  the  32  Mbit  Flash  memory  and  X2 
SelectMap  port  as  microcontroller  I/O  devices,  they  were  left  as  separate  hardware 
processes.  This  conversion  was  not  made  for  several  reasons.  Firstly,  the  modules  were 
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already  designed  and  tested.  Secondly,  implementing  the  SelectMap  readback  module  in 
programmed  code  could  have  used  considerable  processor  time,  possibly  interfering  with 
the  main  task  of  the  XI  processor;  communication  between  the  PC/104  computer  and  X2. 
A  brief  description  of  the  hardware  modules,  the  tasks  they  perform,  and  how  they  were 
modified  for  use  with  the  microcontroller  follow. 


Figure  3 .  CFTP  Block  Diagram  -  After  Microcontroller 

1,  PC/104  Interface  Module 

The  PC/104  interface  module  allows  bidirectional  8-bit  data  transfer  between  the 
PC/104  computer  and  XI.  The  PC/104  computer  is  in  control  of  the  PC/104  bus,  using 
different  addresses  for  enabling  and  disabling  interrupts,  performing  data  transfer,  and 
checking  the  status  register  used  for  handshaking.  The  X2  interface  module  and  the  two 
SelectMap  configuration  modules  connected  directly  to  the  PC/104  interface  module. 
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This  module  was  modified  for  use  with  the  mieroeontroller  by  severing  all  the 
direct  connections  to  the  other  modules.  All  PC/104  bus  communication  is  coordinated 
by  the  microcontroller.  The  source  code  for  the  PC/104  module  is  listed  in  Appendix  A, 
Sections  W  (xsoc_pcl04.v)  and  K  (pcl04queue.v). 

2.  Timestamp  Counter 

The  64-bit  counter  in  the  Timestamp  Counter  module  was  used  in  the  original 
version  of  XI  to  generate  timestamps  for  inclusion  in  status  messages  sent  from  CFTP  to 
the  PC/104  computer.  Status  message  time  was  calculated  using  the  64-bit  counter  value 
included  in  the  message  and  the  CFTP  startup  time  recorded  in  the  PC/104  computer. 
The  two  SelectMap  modules  and  the  X2  interface  were  directly  connected  to  the  timer 
output  since  all  these  modules  generated  status  reports. 

This  module  was  modified  for  use  with  the  microcontroller  by  severing  the  direct 
connections  to  the  other  modules;  it  is  now  connected  only  to  the  microcontroller.  To 
allow  a  choice  of  a  smaller  counter  to  save  FPGA  resources,  the  source  code  was  changed 
to  implement  a  32,  48,  or  64-bit  counter  selectable  via  'define  statements.  Additional 
functionality  was  added  to  the  counter  by  using  output  bits  16-31  (selectable  through 
software)  to  periodically  generate  interrupts,  forming  a  basic  timer.  An  interrupt 
controller  was  also  inserted  in  the  module  to  process  the  interrupts  from  the  timer  and 
other  I/O  devices  connected  to  the  microcontroller.  The  source  code  for  this  module  is 
listed  in  Appendix  A,  Section  U  (xscounter.v). 

3,  SelectMap  Configuration  Module 

This  module  initializes  the  X2  FPGA  by  downloading  the  configuration 
information  into  X2’s  configuration  memory.  The  configuration  information  is  stored  in 
the  32Mbit  Flash  RAM. 

This  module  was  only  slightly  modified  from  the  original;  the  status  message  it 
output  to  the  PC/104  interface  was  replaced  with  a  status  byte  the  microcontroller  could 
use  to  determine  when  configuration  was  finished  and  a  flash  memory  base  address  was 
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added  so  multiple  X2  configurations  could  be  selected.  The  source  code  for  this  module  is 
listed  in  Appendix  A,  Section  O  (selectmap_config_xsoc.v),  and  Appendix  B,  Section  A 
(selectmap_config.vhd). 

4.  SelectMap  Readback  Module 

This  process  is  done  to  detect  errors  caused  in  X2’s  configuration  by  SEUs.  This 
module  reads  the  configuration  from  the  X2  experiment  FPGA  and  compares  it  with  known 
good  values  in  the  32Mbit  Flash  RAM.  If  any  bits  are  found  to  be  in  error,  a  status  report  is 
sent  via  the  PC/ 104  interface. 

This  module  was  only  slightly  modified  from  the  original.  Direct  status  messages  to 
the  PC/ 104  bus  were  eliminated;  instead  the  data  values  they  contained  were  made  available 
to  the  microcontroller  via  memory-mapped  registers.  The  source  code  for  this  module  is 
listed  in  Appendix  A,  Section  P  (selectmap  rb  xsoc.v),  and  Appendix  B,  Section  B 
(selectmap_readback.vhd). 

5.  X2  Interface 

The  X2  interface  was  designed  to  be  modified  for  each  individual  experiment.  It 
includes  all  the  experiment-specific  portions  of  XL  Experiments  to  date  had  all  used  data 
produced  in  X2;  results  were  sent  to  the  PC/104  bus  via  an  interface  to  the  PC/104  interface 
module. 

A  sample  X2  interface  was  specified  but  was  not  implemented  for  the  microcontroller 
since  creating  an  experiment  was  not  the  objective  of  this  thesis.  However,  the 
microcontroller  can  easily  move  data  in  and  out  of  an  experiment,  including  using  data  from 
the  PC/104  bus  or  even  generating  the  input  data  in  the  microcontroller  itself.  Data  coming 
from  the  experiment  can  be  formatted,  buffered,  and  sent  to  the  PC/ 104  computer  as  desired. 

C.  SUMMARY 

More  details  on  the  design  and  characteristics  of  the  new  modules  are  contained  in 
Chapters  VIII,  IX,  X,  XII  and  XIII,  and  source  code  is  contained  in  Appendices  A  and  B. 
After  it  was  established  that  a  microcontroller  architecture  would  improve  CFTP,  the  next 
step  was  establishing  the  selection  criteria  for  and  choosing  a  processor  to  use.  That  process 
is  described  in  Chapter  IV,  Processor  Selection  and  Features. 
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IV.  PROCESSOR  SELECTION  AND  FEATURES 


A,  SELECTING  A  PROCESSOR 

Selecting  an  existing  soft-core  processor  eliminated  the  time  needed  to  test  and 
implement  a  new  design.  Desirable  features  included  a  robust  instruction  set, 
comprehensive  documentation,  operating  system,  and  C  compiler.  Most  importantly,  the 
processor  had  to  fit  in  the  control  FPGA.  32-bit  designs  were  quickly  eliminated  since 
none  were  found  that  were  small  enough.  Many  8-bit  designs  were  rejected  since  they 
were  designed  to  emulate  an  existing  CISC  processor  or  microcontroller  and  were  also 
too  large.  Only  one  design  was  found  that  had  the  necessary  functionality  and  was  small 
enough.  That  processor  was  the  XSOC  processor  developed  by  Jan  Gray  as  documented 
in  his  "Building  a  RISC  CPU  and  System-on-a-Chip  in  an  FPGA"  series  of  articles  that 
was  published  in  Circuit  Cellar  magazine  [3].  The  XSOC  License  Agreement  is  included 
as  Appendix  E;  as  this  thesis  and  provided  source  code  rely  extensively  on  XSOC  it  is 
also  subject  to  the  agreement.  Specific  applications  of  the  CFTP  microcontroller  should 
carefully  consider  the  XSOC  License  Agreement  to  ensure  compliance. 

B,  XSOC  GENERAL  DESCRIPTION 

As  developed  by  Gray,  XSOC  is  not  just  a  soft-core  processor.  It  is  a  design  for  a 
complete  "System-on-a-chip"  that  includes  source  code  for  a  16-bit  processor,  video 
controller,  combined  memory  and  I/O  controller,  and  sample  I/O  devices.  It  was 
originally  developed  for  the  XESS  XS40-005XL  series  of  EPGA  development  boards. 
These  boards  included  a  32KB  asynchronous  SRAM,  VGA  port,  7-segment  display,  and 
a  parallel  port.  Programs  were  loaded  directly  into  the  SRAM  via  a  connection  to  an 
attached  personal  computer.  XSOC  came  with  excellent  documentation,  a  modified 
version  of  the  lee  retargetable  C-compiler,  an  assembler,  and  a  simulation  tool. 

None  of  the  I/O  modules  included  with  XSOC  were  directly  applicable  for  use  in 
XL  The  parallel  port  proved  useful  during  early  development  and  testing.  The  memory 
controller  was  modified  extensively  for  use  with  the  block  RAMs  present  in  the  XI 
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FPGA.  Finally,  XSOC  was  modified  to  include  fault  tolerance;  TMR  was  used  for  all 
systems  except  main  memory  which  was  implemented  using  ECC. 

Two  complete  source  options  were  provided  with  XSOC;  Verilog  HDL  text  files 
and  Xilinx  ISE  Student  Edition  schematic  files.  Unfortunately,  the  Xilinx  files  were 
created  with  a  now-obsolete  edition  of  ISE  and  currently  supported  versions  of  ISE  will 
not  read  them.  The  Verilog  files  are  plain- text  and  are  readily  compiled  using  the  Xilinx 
design  tools. 

The  XSOC  processor  is  a  16-bit  RISC  design.  It  features  a  3-stage  pipeline,  a  16- 
entry  register  file,  and  43  distinct  instructions.  Eigure  4  shows  the  processor  data  path. 
There  is  no  status  register;  instructions  that  rely  on  condition  codes  must  immediately 
follow  those  that  set  them.  A  complete  instruction  set  summary  is  given  in  "The  xrl6 
Specfications"  manual  [11].  The  instruction  set  and  basic  processor  architecture  was  left 
unchanged  for  use  with  the  CETP. 


Eigure  4.  XSOC  Data  Path 
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Figure  5  shows  the  pipeline  execution.  There  are  three  stages  in  the  pipeline: 
instruction  fetch,  instruction  decode,  and  execute/writeback.  In  the  instruction  fetch 
stage,  the  next  instruction  address  is  presented  to  memory.  This  operation  is  then 
followed  by  the  instruction  decode  stage  where  the  results  from  the  previously  requested 
memory  access  are  made  available  to  the  instruction  decode  circuitry  in  preparation  for 
the  execute/write  back  stage.  At  this  point  the  A  and  B  operands  are  retrieved  from  the 
register  file,  immediate  data,  or  data  from  the  previous  writeback/decode  stage.  Finally, 
the  results  are  computed  and  written  back  in  the  execute/write  back  stage.  Memory 
accesses  require  at  least  one  additional  clock  cycle  and  will  cause  a  pipeline  stall.  Taken 
branches  and  jumps  will  also  cause  pipeline  stalls. 


t1 

*2 

*3 

*4 

ts 
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DCi 

EX/WB1 

I _ 
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Figures.  Pipelined  Execution.  From  [3] 


C.  SUMMARY 

After  selecting  XSOC  as  the  basis  for  this  project,  the  major  effort  of  this  thesis 
was  modifying  it  for  fault  tolerance.  This  process  is  described  in  Chapter  V. 
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V.  IMPLEMENTING  FAULT  TOLERANCE 


Fault  tolerance  was  implemented  through  both  Error  Correction  Coding  (ECC) 
and  Triple  Modular  Redundancy  (TMR).  ECC  was  used  in  designing  the  memory 
subsystem  and  is  discussed  further  in  Chapter  VIII.  This  chapter  presents  how  TMR  was 
implemented  in  XI,  methods  to  implement  TMR  using  Xilinx  ISE,  and  discusses 
important  fault  tolerance  issues  with  the  Virtex  EPGAs  used  in  CETP. 

A.  TRIPLE  MODULAR  REDUNDANCY 

The  strategy  for  making  XSOC  fault  tolerant  through  TMR  was  one  of  placing 
voters  before  each  clocked  storage  element  and  triplicating  the  functionality  of  all  the 
modules.  If  an  error  occurs  within  the  combinational  logic  of  one  of  the  three  copies,  the 
error  is  not  propagated  to  that  copy's  pipeline  registers  because  it  is  rejected  as  the 
minority  result.  Since  each  register  has  its  own  input  voter,  a  voter  error  will  only  affect 
that  particular  copy  of  the  circuitry  and  will  be  corrected  by  the  voter  on  the  next  pipeline 
stage.  This  organization  is  shown  in  Eigure  6.  Eigure  6  is  intended  as  a  cutaway  view  of 
one  of  the  pipeline  stages;  feedback  paths  are  not  shown. 

The  clock  is  considered  a  trusted  source;  an  error  in  the  clock  may  cause 
unintended  operation.  Ideally  one  would  have  three  redundant  clock  signals  but  the 
existing  CETP  hardware  does  not  have  that  capability. 

Bus  and  signal  widths  were  increased  by  three  times  to  accommodate  the  three 
copies  of  each  module.  Voters  were  instantiated  as  <signalname>_v,  while  voted  signals 
were  named  v_<signalname>.  This  convention  aided  in  the  design  process  as  it  was 
obvious  which  signals  were  the  result  of  a  voted  output. 

Although  the  voters  could  have  been  placed  before  or  after  the  pipeline  registers, 
the  deciding  factor  was  that  the  synchronous  block  RAMs  present  in  the  EPGA  have  a 
clocked  input.  Placing  the  voters  after  the  pipeline  registers  would  have  resulted  in  the 
signal  propagating  through  two  sets  of  voters  on  the  pipeline  stage  terminating  in  the 
memory  inputs;  once  after  the  pipeline  registers  and  again  just  before  entering  the 
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memory  inputs.  Having  more  than  one  voter  between  pipeline  stages  is  undesirable  as  it 
could  lead  to  a  decrease  in  the  maximum  operating  speed  of  the  microcontroller  due  to 
the  delay  of  two  voters  rather  than  one. 


Figure  6.  Voter  Strategy 

The  voters  used  are  bitwise  majority  voters.  A  block  diagram  of  one  bit  of  a  voter 
is  shown  in  Figure  7.  Voters  are  instantiated  through  use  of  the  voter Insyn  module.  This 
module  accepts  the  number  of  result  bits  n  as  a  parameter.  Data  in  is  3n  bits  wide,  data 
out  will  be  n  bits  wide.  Data  on  the  input  bus  is  organized  with  the  least  significant  third 
of  the  bits  designated  as  input  A,  the  next  third  designated  as  input  B,  and  the  most 
significant  third  designated  as  input  C.  Error  indication  is  provided  through  the  global 
error  syndrome  bus  as  described  in  Chapter  XII.  The  error  indication  is  limited  to  errors 
on  a  particular  input  A,  B,  or  C  and  will  not  indicate  which  particular  bit  is  in  error. 

Each  bit  on  the  input  bus  is  treated  individually,  with  one  bit  from  each  of  the 
three  A,  B,  and  C  inputs  sent  into  the  structure  shown  in  Eigure  7.  An  error  indication  for 
input  A,  B,  or  C  is  asserted  if  that  particular  input's  bit  does  not  agree  with  the  other  two 
inputs.  The  A,  B,  and  C  error  outputs  from  each  bit  are  ORed  with  the  A,  B,  and  C  error 
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outputs  of  the  other  bits  in  the  voter  into  three  A,  B,  and  C  error  indieation  bits.  These 
bits  are  output  to  the  global  error  syndrome  bus  on  the  next  eloek  cyele. 


Figure  7.  Voter  Operation 

Two  different  versions  of  the  error  detection  voter  were  developed.  The  initial 
version  ORed  all  the  like  A,  B,  and  C  error  bits  together  and  then  saved  the  results  in 
three  flip-flops  at  the  positive  edge  of  the  clock.  This  design  was  later  improved  by 
moving  the  OR  circuitry  after  the  flip-flops  which  resulted  in  a  faster  maximum  system 
clock  due  to  a  shorter  critical  path.  Unfortunately,  this  modification  also  used  many  more 
flip-flops  and  FPGA  resources.  When  the  design  was  nearly  complete  it  was  necessary  to 
switch  back  to  the  slower  voters  due  to  running  out  of  FPGA  slices.  Fortunately,  this 
change  did  not  result  in  a  slower  system  clock  since  both  choices  were  too  slow  for 
operation  at  25  MFlz  and  were  fast  enough  for  20  MHz.  (The  clock  is  derived  from  the 
PC/104  bus  SYSCLK  which  runs  at  51  MHz.  Dividing  this  clock  by  2  results  in  a 
~25Mhz  clock;  dividing  by  2.5  results  in  a  ~20Mhz  clock) 
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Similarly,  it  was  necessary  to  remove  the  error  detection  (but  not  correction) 
capabilities  on  the  I/O  devices  attached  to  XSOC  due  to  a  lack  of  FPGA  slices.  They  use 
a  version  of  the  voter  {voter In)  that  has  the  majority  function  as  its  only  output. 

B,  XILINX ISE  PARTITIONS 

The  CFTP  microcontroller  was  created  using  Xilinx  ISE  9.2i.  The  ISE  software 
normally  removes  redundant  logic  during  global  optimization.  Unfortunately  redundant 
logic  includes  removing  the  redundant  elements  in  TMR  designs.  In  order  to  halt  this 
behavior,  one  option  is  to  use  partitions.  Although  not  the  intended  purpose,  placing  the 
redundant  modules  in  individual  partitions  will  stop  the  global  optimization  process  from 
removing  them. 

Partitions  are  intended  as  a  method  to  separate  blocks  of  code  that  have  not 
changed  during  the  design  process,  resulting  in  shorter  compilation  times  since  only  the 
changed  partitions  are  recompiled.  Alternatively,  they  may  be  used  as  a  method  to  keep  a 
"production-quality"  module  that  has  been  approved  for  use  from  alteration  after  the 
quality  assurance  process  [12].  When  a  module  is  implemented  as  a  partition, 
optimization  is  done  on  the  partitioned  module  which  is  then  saved  as  a  "black  box"  with 
only  inputs  and  outputs  visible  to  the  global  optimization  process.  This  "black  box" 
abstraction  works  well  for  use  with  TMR  since  the  optimizer  doesn't  know  the  elements 
inside  the  boxes  are  redundant.  Testing  revealed  that  the  TMR  circuits  were  more  than 
three  times  the  size  of  the  non-partitioned  circuits  as  one  would  expect  (the  voters  would 
account  for  the  more  than  threefold  increase).  Additionally,  the  messages  during 
compilation  that  redundant  elements  were  removed  were  not  observed  after  implementing 
the  design  using  partitions. 

Using  partitions  has  some  limitations,  however.  Tri-state  busses  are  not  allowed 
on  connections  external  to  the  partition.  (They  are  allowed  internally,  however).  Tri¬ 
state  outputs  can  be  replaced  by  separate  input  and  output  ports  and  output  enable  signals 
on  the  instantiating  module.  Partitioned  modules  may  not  be  instantiated  by  generate/for 
loops.  This  limitation  makes  the  process  of  creating  TMR  on  combined  busses  more 
prone  to  error  as  each  bus  connection  must  be  specified  manually.  Easily,  partitions 
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should  not  use  include  statements  [13].  Using  include  statements  with  ISE  9.2i  does 
work  with  the  expectation  that  changing  the  included  code  might  not  trigger  an  automatic 
recompile.  Include  statements  are  used  to  hold  global  constants  in  partitioned  elements  of 
this  design  with  the  knowledge  that  changing  them  should  be  followed  by  a  complete 
recompile. 

To  create  a  partition  in  ISE,  right-click  on  the  module  name  in  the  Sources  window 
(make  sure  the  Synthesis/Implementation  option  is  selected)  and  select  New  Partition.  They 
may  be  deleted  by  selecting  Delete  Partition.  There  are  several  ways  to 
inadvertently  remove  partitions.  If  the  top-level  module  is  changed  or  a  module  that  contains 
partition  data  is  removed  from  the  project,  partition  data  is  removed  and  must  be  recreated. 

C.  COMPLETE  FAULT  TOLERANCE 

Simply  using  TMR  and  ECC  in  a  Virtex  FPGA  is  not  sufficient  to  guarantee  fault 
tolerance.  Configuration  scrubbing,  as  used  in  X2,  detects  and  corrects  configuration  errors. 
Configuration  errors  may  change  hardware  functionality  until  corrected.  Currently  no 
configuration  scrubbing  is  performed  on  XL  Additionally,  some  errors  are  persistent;  they 
are  not  corrected  with  a  configuration  scrub.  Specifically,  "keeper"  circuits  may  be  created 
on  inputs  to  FPGA  elements  that  are  permanently  set  to  high  or  low  values.  The  "keeper" 
circuits  are  created  with  otherwise  unused  logic  that  is  not  included  in  configuration 
scrubbing  [13].  These  errors  require  a  power-on-reset  to  correct.  Xilinx  XAPP187 
discusses  these  issues  further.  Both  problems  are  candidates  for  future  work.  Finally,  XI  on 
current  CFTP  hardware  will  never  be  completely  fault  tolerant  since  there  is  only  a  single 
system  clock  and  most  I/O  connections  are  neither  redundant  nor  error  corrected. 

D.  SUMMARY 

Implementing  TMR  and  ECC  is  an  important  first  step  in  achieving  true  fault 
tolerance  in  XL  Removing  "keeper"  circuits  and  adding  configuration  scmbbing  on  XI  are 
the  final  two  steps  required  to  make  XI  as  fault  tolerant  as  possible  and  should  be  addressed 
by  future  work.  Using  partitions  allows  TMR  implementation  with  the  Xilinx  ISE  tools. 
Chapter  VI  describes  the  modifications  that  were  made  to  the  XSOC  SoC  for  TMR 
conversion. 
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VI.  MODIFYING  XSOC  FOR  CFTP 


The  basic  concept  of  XSOC  was  unchanged.  Functions  implemented  using 
distributed  RAM  were  replaced  with  an  equivalent  function  created  with  flip-flops,  the 
memory  controller  was  modified  for  use  with  the  on-FPGA  block  RAMs,  and  the  entire 
design  was  made  fault  tolerant  through  the  use  of  TMR.  This  chapter  describes  the  first 
two  changes  while  memory  controller  modifications  are  described  in  Chapter  VII. 

Xilinx  XAPP2I6  notes  that  when  using  configuration  scrubbing  on  Virtex 
FPGAs,  elements  that  are  implemented  with  distributed  RAM  cannot  be  used  [14].  This 
limitation  occurs  because  distributed  RAM  uses  the  configuration  memory  as  RAM;  the 
scrubbing  will  "correct"  the  RAM  contents  back  to  power-on  values.  The  original  XSOC 
register  file  and  program  counter  were  created  using  distributed  RAM.  Even  though 
configuration  scrubbing  is  not  currently  active  on  XI  the  intent  was  to  prepare  the  design 
so  it  could  be  implemented  later.  Additionally,  the  design  was  tested  as  an  experiment  on 
X2  during  early  development  which  would  not  have  been  possible  had  the  original 
distributed  RAM  parts  been  left  in  place. 

A  replacement  register  fide  was  created  using  groups  of  D-type  positive-edge 
clocked  flip-flops  and  three  decoders.  Figure  8  contains  a  block  diagram  of  the  new 
register  file.  The  flip-flops  are  arranged  in  groups  of  16,  with  all  groups  sharing  a 
common  input  and  the  outputs  connected  to  two  tri-state  output  busses.  Two  decoders 
were  used  to  select  which  group  would  drive  the  A  and  B  output  busses.  The  third 
decoder  was  used  to  determine  which  group  received  a  clock  enable  for  store  operations. 
This  design  operates  with  an  asynchronous  read  and  a  positive  edge-clocked  write-back. 
Since  register  0  is  defined  in  the  architecture  as  a  constant  zero  value,  group  zero  is  not 
connected  to  a  register  and  instead  connects  to  tri-state  drivers  sourced  to  ground. 


25 


Figure  8.  Replacement  Register  File 

The  original  XSOC  program  counter  was  also  implemented  with  the  same 
structure  as  the  register  file  but  used  only  two  of  the  16  available  registers.  The  first 
entry  was  the  program  counter  for  normal  operation  while  the  second  was  the  DMA 
program  counter.  This  design  was  replaced  with  two  16-bit  registers  and  a  multiplexer. 
There  is  no  DMA  support  with  the  current  memory  design  but  the  DMA  program  counter 
was  implemented  in  case  DMA  is  re-implemented  in  the  future. 

Implementing  TMR,  while  a  simple  concept,  proved  more  difficult  in  practice 
than  initially  expected.  Every  signal  had  to  be  expanded.  Every  register  internal  to 
modules  added  two  signals  to  the  module's  port  list  and  added  a  voter  to  the  module. 
Instantiating  some  modules  was  very  tedious  due  to  the  large  number  of  ports  and 
varying  bus  indices  on  each  of  the  three  copies. 

Chapter  VII  describes  the  new  memory  design  and  changes  that  were  made  to  the 
XSOC  memory  controller. 
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VII.  MEMORY  SUBSYSTEM 


A,  DESIGN 

The  available  memory  for  the  mieroeontroller  was  limited  to  the  amount  of  bloek 
ram  on  the  Xilinx  XQVR600  FPGA,  which  is  24  4Kbit  dual-port  synchronous  block 
RAMs.  The  original  XSOC  design  used  an  asynchronous  32Kbyte  8-bit  static  RAM  that 
was  included  on  the  XESS  development  board.  Design  goals  were  to  make  the  system  as 
fault  tolerant  as  possible  while  maximizing  use  of  the  on-chip  RAM  and  the  operating 
speed  of  the  system. 

With  only  24  4K-bit  RAMs  on  board,  fault  tolerant  design  choices  were  limited. 
The  RAMs  are  dual-ported,  allowing  operation  as  48  2Kbit  RAMs.  Two  fault  tolerant 
options  were  explored;  a  TMR  2K-word  system  and  a  Hamming-coded  4K-word  system. 

The  2K-word  system  offers  the  advantage  of  speed  and  simplicity  at  the  expense 
of  storage  capacity.  The  4K-word  system  offers  higher  capacity  at  a  slower  speed  with  a 
greater  complexity.  The  4K-word  (8K-byte)  system  was  chosen  to  maximize  the  amount 
of  RAM  available  to  the  XSOC  programmer. 

B.  XSOC  MEMORY  MODIFICATIONS 

The  original  XSOC  design  used  the  DOUT  register  driven  to  the  data  bus  for 
processor  memory  writes,  and  used  the  output  of  the  XA  register  for  the  address  for  reads 
and  writes.  The  existing  datapath  was  altered  for  use  with  block  RAM.  Figure  9  shows 
the  new  datapath  outputs  to  memory.  The  synchronous  memory  required  valid  data  a 
clock  cycle  earlier  than  the  previously  used  asynchronous  RAM  in  order  to  eliminate 
additional  wait  states.  This  constraint  caused  the  need  for  a  separate  bus  from  the 
processor  to  memory  for  data  writes  since  the  processor  data  bus  was  possibly  in  use  on 
the  previous  cycle  to  the  write  operation.  Fortuitously,  the  block  RAMs  also  had  separate 
data  inputs  and  outputs  which  eliminated  contention  from  adjacent  read  cycles  to 
memory. 
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Both  the  DOUT  and  XA  registers  are  eontrolled  by  the  MEM  CE  eloek-enable 
signal  from  the  eontrol  path.  This  signal  is  deasserted  during  memory  pipeline  stalls. 
Multiplexers  were  added  to  select  either  the  input  values  (no  stall)  or  output  (stall)  values 
of  the  DOEIT  and  XA  registers  to  obtain  the  data  one  clock  cycle  earlier.  The  operation 
of  the  DOUT  register  and  its  associated  drivers  was  unchanged. 


Eigure  9.  Datapath  Outputs  to  Memory 

The  memory  controller  source  code  (memctrl.v)  was  modified  for  the  new  design, 
as  well  as  the  datapath  (datapath. v)  and  main  xsoc.v  file. 

C.  MEMORY  READ  CYCLE 

The  memory  read  cycle  has  two  modes  of  operation;  read  word  and  read  byte. 
Both  operations  start  in  the  instruction  decode  stage  with  the  next  memory  address 
NEXT  ADDR  and  write  enable  WE  deasserted.  The  output  of  the  memory  is  then 
available  on  the  next  clock  cycle. 
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All  reads  are  done  as  a  word  with  the  results  from  the  22  BRAMs  input  into  the 
ECC  deeoder  where  error  correetion  is  applied  if  neeessary  and  presented  to  the  two 
output  busses.  There  are  two  output  busses  from  main  memory;  one  is  for  the  pipelined 
instruction  fetch;  it  is  a  16-bit  direct  input  to  the  control  module.  The  other  is  the  tri-state 
output  to  the  data  bus. 

Data  is  addressed  in  bytes;  the  least  significant  bit  is  not  presented  to  the  memory 
modules.  Instead,  it  is  used  to  select  the  high  or  low  byte  after  fetching  the  entire  word. 
A  multiplexer  is  inserted  on  the  low  byte  to  the  data  bus  to  select  either  the  high  or  low 
byte.  The  high  byte  out  of  memory  is  always  connected  to  the  high  byte  of  the  data  bus 
since  all  word  reads  must  be  word  aligned.  On  byte  reads,  only  the  selected  byte  is 
driven  to  the  low  byte  of  the  data  bus.  On  word  reads,  both  bytes  are  driven.  Figure  10 
shows  the  memory  data  flow. 


Figure  10.  Memory  Data  Flow 
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D,  MEMORY  WRITE  CYCLE 


Memory  writes  are  either  byte  or  word  writes,  with  byte  writes  taking  two  cloek 
eyeles  and  word  writes  taking  one.  Single-eycle  byte  writes  would  have  been  desirable 
but  would  require  more  bloek  RAMs  than  are  present  on  the  FPGA.  More  RAMs  would 
have  been  required  due  to  the  additional  parity  bits  generated  when  memory  is 
implemented  as  two  8-bit  ECC  bytes  rather  than  a  single  16-bit  ECC  word.  Memory 
writes  are  always  completed  as  a  word  write.  This  operation  is  necessary  since  writing 
the  high  or  low  byte  by  itself  would  not  properly  update  the  six  parity  bits  (the  parity  is 
for  the  entire  word,  not  just  one  byte).  Additionally,  since  the  value  of  the  byte  not  being 
written  is  unknown,  a  write  byte  operation  requires  a  read  cycle  beforehand  to  obtain  the 
value  of  the  byte  not  being  written  to  properly  calculate  the  parity  for  the  word. 

Eor  a  word  write,  the  data  is  input  from  the  B  output  of  the  register  file  to  the 
ECC  encoder.  The  encoded  values  are  then  sent  through  a  voter  to  the  data  inputs  of  the 
BRAMs,  which  capture  the  data  on  the  next  clock. 

Eor  a  byte  write,  the  data  is  stored  in  the  MDR  register  during  the  pipeline  stall 
caused  by  the  additional  wait  state.  The  value  of  the  next  address  ADDR_NXT  is  read 
and  sent  through  the  ECC  decoder  for  error  correction.  It  is  also  latched  into  a  holding 
register  to  preserve  the  address  for  the  next  cycle.  On  the  next  clock  cycle,  the  value  of 
the  byte  that  was  not  to  be  written  is  sent  to  the  ECC  encoder  along  with  the  new  byte  of 
data.  This  newly  formed  word  and  associated  parity  bits  are  then  written  on  the 
following  clock  cycle. 

E,  ERROR  CORRECTION  CODING 

The  memory  subsystem  uses  Hamming  codes  to  generate  parity  bits  for  error 
correction  and  detection.  Table  2  shows  the  5  check  groups  and  their  associated  data  bits. 
Eor  a  16-bit  word,  six  parity  bits  are  needed  for  single  error  correction  and  double  error 
detection.  Memory  is  arranged  with  the  order  of  the  16  data  bits  preserved  in  the  first 
16  bits  of  memory  and  the  additional  parity  bits  in  positions  17  through  22.  There  are 
five  Hamming  bits  with  an  additional  sixth  bit  as  an  overall  parity  check.  The  parity 
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calculations  are  done  by  XORing  the  data  bits  seleeted.  The  grouping  is  as  follows,  with 
bit  0  being  the  least  signilieant  data  bit  and  15  the  most  signifioant: 


Check  Group 

Data  Bits 

1 

0,1,3,4,6,8,10,11,13,15 

2 

0,2,3,5,6,9,10,12,13 

4 

1,2,3,7,8,9,10,14,15 

8 

4,5,6,7,8,9,10 

16 

11,12,13,14,15 

Overall 

Data  bits  0-15  and  the  5  check  group  bits 

Table  2.  Parity  Group  Bits 


Arranging  the  data  bits  with  the  eheek  groups  in  the  bit  positions  indieated  would 
have  made  deeoding  easier;  however  the  order  of  the  16  data  bits  was  preserved  to  aid  in 
the  debugging  proeess  as  well  as  to  faeilitate  program  reuse  between  ECC  and  non-ECC 
versions  of  the  mieroeontroller.  The  six  most  significant  bits  of  data  are  simply  ignored 
for  non-ECC  versions. 

Error  deteetion  and  eorreetion  is  aeeomplished  by  XORing  the  eorresponding 
eheek  group  bit  with  the  data  bits  that  generated  it.  The  eheek  bits  are  then  eombined 
into  a  syndrome  that  is  sent  to  a  modified  deeoder.  The  deeoder  outputs  a  16-bit  value 
that  is  all  zeros  when  no  errors  are  detected.  If  an  error  is  detected  the  syndrome  input  to 
the  deeoder  will  eause  the  the  bit  that  corresponds  to  the  erroneous  memory  bit  to  be 
asserted.  The  output  from  the  deeoder  is  then  XORed  with  the  output  of  the  low  16  bits 
of  memory  resulting  in  eorrect  output  to  the  instruction  and  data  bus,  if  applicable. 

The  design  of  the  memory  system  prevents  SEUs  from  eausing  memory  errors. 
Eigure  11  shows  the  memory  organization.  Traditional  ECC  designs  are  proteeted 
against  data  errors  but  not  addressing  errors.  To  solve  this  issue,  individual  voters  are 
plaeed  at  all  inputs  of  the  22  bloek  RAMs.  The  only  eommon  input  is  the  eloek.  Any 
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single  bit  failure  will  affect  at  most  one  RAM,  including  a  failure  on  one  of  the  address 
lines  or  the  write  enable.  The  ECC  decoders  will  correct  the  erroneous  bit  and  the  correct 
value  will  be  presented  to  the  three  data  buses. 


Figure  1 1 .  Fault  Tolerant  Memory 


F.  ALTERNATIVE  MEMORY  OPTION 

The  alternative  memory  option  mentioned  in  the  beginning  of  this  chapter  was  to 
use  both  ports  of  the  dual-ported  4K  block  RAMs,  dividing  them  into  48  2K  RAMs  by 
setting  the  high  address  bit  on  one  port  to  high  and  the  high  address  bit  on  the  other  port 
to  low.  Figure  12  shows  the  memory  data  flow  for  this  design.  This  option  eliminates 
the  extra  wait  state  on  write  byte  caused  by  reading  back  the  entire  word  as  well  as  the 
loop-around  circuitry  associated  with  it.  It  also  requires  fewer  voters  since  each  block  is 
triplicated;  redundancy  is  by  instance  and  not  bitwise.  Figure  13  shows  how  the  memory 
structure  would  have  been  organized.  Only  three  address  (12-bit),  six  write-enable  (one- 
bit),  and  three  data  (16-bit)  voters  are  required.  It  eliminates  the  possibility  for  a 
background  memory  scrub  since  both  ports  of  the  memory  are  in  use.  Note  that  there  are 
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write-enables  for  each  byte,  as  opposed  to  the  single  write-enable  for  the  word  on  the 
ECC  system.  Also  of  note  is  that  this  design  does  not  offer  more  protection  against 
SEUs  than  does  the  ECC  version  for  CFTP  use.  This  equality  does  not  hold  when  using  a 
platform  with  redundant  clocks;  the  single  clock  is  the  weakness  of  the  ECC  version. 


Figure  12.  Alternative  Memory  Data  Flow 
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Figure  13.  Alternative  Design  for  Fault  Tolerant  Memory 


In  this  chapter,  two  memory  subsystem  alternatives  were  presented.  Each  has 
advantages  over  the  other.  With  the  available  resources  in  the  Virtex  FPGA  the  ECC  version 
was  selected.  Were  this  project  ported  to  a  newer  FPGA  with  more  or  larger  block  RAMs, 
the  TMR  solution  would  have  been  much  more  attractive  due  to  the  simplicity  of  the  design, 
single  clock  cycle  byte  writes,  and  faster  operation. 

G.  MEMORY  SUBSYSTEM  FILES 

The  memory  subsystem  is  instantiated  in  3  Verilog  files:  bram  ecc.v,  memio.v,  and 
bram4kx22.v.  Bram_ecc  is  called  from  the  top-level  xsoc.v  file  and  contains  the 
error-corrected  memory  subsystem  module,  the  three  memory  I/O  modules,  and  the  block 
RAMs. 

The  revised  memory  controller  and  ECC  RAM  design  were  the  last  revisions  made  to 

XSOC  and  completed  the  basic  microcontroller  design.  The  next  chapters  describe 

microcontroller  I/O,  including  both  adding  new  modules  and  revisions  to  the  previous  XI 

functional  blocks.  Chapter  Vlll  starts  the  process  by  discussing  adding  EO  modules. 
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VIII.  ADDING  I/O  MODULES 


This  chapter  is  intended  to  serve  as  a  guide  for  adding  new  I/O  modules.  The  first 
three  sections  deal  with  the  three  sections  of  a  TMR  module:  instantiation  of  the 
complete  module,  the  wrapper  module,  and  the  triplicated  funetional  block  of  the  module. 
The  fourth  seetion  deseribes  an  I/O  module  interface  for  an  experiment  located  in  the  X2 
experiment  FPGA.  Source  code  for  the  sample  I/O  module  is  found  in  Appendix  A, 
Section  H  (iotemplate.v). 

A.  TOP-LEVEL  INTERFACE 

Adding  I/O  modules  to  the  XI  design  is  accomplished  by  adding  the  module  to 
the  top  level  xl  control. v  file.  The  module  will  consist  of  a  "wrapper"  function  that 
instantiates  the  XSOC  ctrl_dec  and  the  actual  module  eode.  A  sample  I/O  module  is 
included  in  Seetion  H  of  Appendix  A  and  will  be  used  to  diseuss  implementing  an  I/O 
module.  Table  3  eontains  the  typical  ports  that  the  top-level  I/O  module  would  use.  The 
X3  column  indicates  that  the  signal  is  a  TMR  bus  and  is  actually  three  times  the  stated 
bus  width. 

A  brief  discussion  of  the  module  signals  is  in  order.  CLK  and  RST  are  the  global 
system  cloek  and  reset  signals,  respectively.  CTRL  is  used  by  the  XSOC  ctrl_dec  module 
to  ereate  other  eontrol  signals  used  in  the  module.  CTRLO  is  driven  low  if  extra  wait 
states  are  needed  before  the  module  completes  an  operation.  It  will  halt  the  pipeline  until 
it  is  driven  high.  If  using  this  signal,  comment  out  assign  ctrlO  =  {I'bl,  I'bl,  I'bl};  in 
the  top  level-module.  Additionally,  realize  that  this  is  a  single  input  pin  and  extra  logic 
will  need  to  be  inserted  if  more  than  one  module  needs  to  use  it.  This  pin  is  part  of  the 
original  XSOC  CTRL  specification  as  bit  0;  mixed  bus  types  are  not  allowed  so  it  was 
implemented  separately. 

SEL  is  used  to  indieate  the  memory  region  that  aetivates  the  10  module.  In  the 
original  design,  this  was  a  single  select  pin  chosen  from  an  8-bit  bus,  supporting  eight  I/O 
modules.  Bus  indiees  0  to  7  eorrespond  to  memory  regions  starting  at  FFOO  with  each  ID 
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being  20h  of  memory  spaee  higher.  This  eonvention  is  still  used,  but  sinee  the  bus  is 
triplieated  ID  0  is  now  pins  0,  8,  and  16  of  the  bus.  Send  the  three  signals  assoeiated  with 
the  desired  ID  to  the  module  as  the  SEL  input. 

INT  REQ  is  seleeted  in  the  same  way  as  SEL  with  8  possible  IDs  on  a  triplieated 
bus.  Note  that  unused  INT  REQ  pins  are  assigned  to  zero  in  the  top  level  module  and  the 
assign  statements  must  be  uneommented  if  using  those  interrupt  request  lines. 

D  is  the  mieroeontroller  tri-state  data  bus,  while  ERRORBUS  is  the  global  error 
reporting  bus. 


Signal 

Name 

Input/ 

Output 

Bus 

Width 

X3 

Description 

CLK 

Input 

1 

N 

System  clock,  ~20Mhz 

RST 

Input 

1 

N 

Global  power-on  reset 

CTRL 

Input 

16 

Y 

XSOC  10  control  bus,  from  memctrl.  Used  by 

ctrldecsyn 

CTRLO 

Output 

1 

Y 

Pin  0  of  CTRE,  drive  low  to  indicate  extra  wait  states 

SEL 

Input 

1 

Y 

Driven  high  by  memctrl  when  that  memory  region  is 

active 

INTREQ 

Output 

1 

Y 

Drive  high  to  indicate  an  intermpt  request 

D 

In/Out 

16 

Y 

Bidirectional  processor  data  bus 

ERRORBUS 

In/Out 

16 

N 

Global  error  syndrome  reporting  bus 

Table  3.  Typieal  10  Wrapper  Module  Ports 


B,  WRAPPER  MODULE 

The  wrapper  module  instantiates  three  XSOC  etrl  dee  eontrol  deeoder  modules, 
three  "user"  I/O  modules,  and  the  tri-state  drivers  neeessary  for  outputting  data  to  the  data 
bus.  Three  eopies  of  the  modules  are  used  to  implement  TMR. 
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The  XSOC  ctrl  dec  syn  control  decoder  uses  the  inputs  from  CTRL  and  SEL  to 
decode  the  5-bit  10  address  and  the  load  and  store  data  strobes.  It  differs  from  the 
original  XSOC  specification  as  it  has  been  modified  for  TMR  operation.  Both  the  CTRL 
and  SEL  busses  are  triplicated  and  voted  upon  in  the  decoder,  with  voter  results  reported 
on  the  global  syndrome  bus. 

The  tri-state  output  drivers  are  placed  in  this  module  since  Xilinx  partitions  do  not 
allow  tri-state  inputs/outputs  on  partition  ports  [12].  The  ld_t  (lower  byte  data  output 
enable)  and  udj  (upper  byte  data  output  enable)  are  output  from  the  ctrl  dec  syn  control 
decoders  and  enable  the  drivers.  A  voter  was  not  placed  on  the  driver  enables  in  case  one 
processor  copy  was  in  an  inconsistent  state  with  the  other  two  to  avoid  the  possibility  of 
multiple  driven  signals  on  the  same  bus.  This  design  should  not  impact  the  fault 
tolerance  of  the  system;  if  one  copy  is  in  an  inconsistent  state  it  will  most  likely  be  unable 
to  properly  process  data  driven  to  the  bus.  Since  all  control  signals  are  reloaded  at  each 
clock  cycle,  the  inconsistent  copy  will  return  to  normal  operation  on  the  next  clock. 

C.  I/O  MODULE 

The  sample  I/O  module  presented  in  Appendix  A,  Section  H  has  a  16-bit  register 
accessible  at  the  base  address  (FFOO  if  ID  0  is  selected,  FF20  for  ID  I,  ...  FFEO  for  ID  8.) 
The  typical  load  and  store  module  will  have  ten  ports.  They  are  listed  in  Table  4. 

In  the  sample  module,  a  store  to  the  register  is  enabled  when  LD  CE  is  asserted 
and  the  module  address  matches  the  address  assigned  to  the  register.  Note  that  byte 
operations  will  assert  only  LD  CE  and  not  UD  CE,  so  to  be  technically  correct  to  the 
specifications  the  enable  should  be  split  between  the  high  and  low  bytes.  In  this  example, 
only  word  operation  is  desired  so  the  UD  CE  signal  is  ignored.  The  LD  CE,  ADDR,  and 
D  signals  are  all  voted  upon  since  it  is  a  clocked  store  operation. 

For  reads,  the  LD_T  and  possibly  UD_T  signals  are  asserted.  These  signals  are 
not  used  by  the  simple  module  in  the  example  since  the  tri-state  drivers  are  in  the  wrapper 
module.  They  would  be  used  in  the  wrapper  module  for  cases  where  a  read  operation 
caused  additional  functionality  besides  a  data  transfer  to  occur,  such  as  a  read  from  a 

queue  that  causes  the  next  item  to  become  available. 
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Signal 

Name 

Input/ 

Output 

Bus 

Width 

X3 

Description 

CLK 

Input 

1 

N 

System  clock,  ~20Mhz 

RST 

Input 

1 

N 

Global  power-on  reset 

ADDR 

Input 

5 

Y 

Contains  the  5  bits  of  address  dedicated  to  that  10 

module;  base  address  +  addr  =  actual  address 

DIN 

Input 

16 

Y 

Data  in  to  module 

DOUT 

Output 

16 

N 

Data  out  of  the  module 

ERRORBUS 

In/Out 

16 

N 

Global  error  syndrome  reporting  bus 

LD_T 

In 

1 

Y 

Used  to  indicate  a  read  operation  from  the  module 

(lower  byte  driver  enable) 

UD_T 

In 

1 

Y 

Used  to  indicate  a  read  operation  from  the  module 

(upper  byte  driver  enable) 

EDGE 

In 

1 

Y 

Used  to  indicate  a  store  operation  to  the  module 

(lower  byte  store  clock  enable) 

UDCE 

In 

1 

Y 

Used  to  indicate  a  store  operation  to  the  module 

(upper  byte  store  clock  enable) 

Table  4.  Typical  10  Module  Ports 


Reading  is  accomplished  asynchronously  with  the  outputs  of  the  different  storage 
elements  being  selected  via  a  multiplexer  based  on  the  address  input  and  output  to  the 
wrapper  module  via  the  DOUT  port.  Signals  to  the  DOUT  port  should  not  be  voted;  any 
reads  from  the  data  bus  are  always  voted  upon  before  they  are  stored.  In  this  simple 
example  a  zero  value  is  returned  if  the  address  does  not  match  the  address  assigned  to  the 
single  register. 
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D,  X2  I/O  MODULES 


There  are  44  general-purpose  I/O  pins  between  the  XI  control  FPGA  and  the  X2 
experiment  FPGA.  This  number  is  too  few  for  a  complete  16-bit  TMR  I/O  module.  It 
would  take  an  additional  27  pins  to  implement  the  interface  with  16-bit  I/O  and  a  5-bit 
address  space.  However,  it  is  enough  for  an  8-bit  TMRed  module  with  a  4-bit  address 
space.  For  an  8-bit  implementation,  the  assignment  listed  in  Table  5  might  be  used. 


Signal 

Name 

Input/ 

Output 

Bus 

Width 

X3 

Description 

CLK 

Input 

1 

N 

System  clock,  ~20Mhz 

RST 

Input 

1 

N 

Global  power-on  reset 

ADDR 

Input 

4 

Y 

Contains  the  4  bits  of  address  dedicated  to  that  10 

module;  base  address  +  addr  =  actual  address 

D 

In/Out 

8 

Y 

Data  in  and  out  of  module 

LD_T 

In 

1 

Y 

Used  to  indicate  a  read  operation  from  the  module 

(lower  byte  driver  enable) 

LDCE 

In 

1 

Y 

Used  to  indicate  a  store  operation  to  the  module 

(lower  byte  store  clock  enable) 

Table  5.  Possible  X2  I/O  Interface  Module 


This  interface  would  use  all  44  available  pins.  Instead  of  one  wrapper  module, 
two  would  be  used;  one  would  be  contained  in  XI  and  the  other  contained  in  X2.  An 
adjustment  to  the  wrapper  module  on  XI  would  be  required;  the  tri-state  drivers  and  the 
triplicated  modules  would  be  removed.  The  wrapper  module  on  XI  would  contain  the 
ctrl_dec  modules  and  assign  the  signals  indicated  in  Table  5  to  I/O  pins.  A  second 
wrapper  module  for  instantiation  on  the  X2  experiment  FPGA  would  be  created.  It 
would  include  the  triplicated  I/O  modules  as  well  as  tri-state  drivers  used  to  allow  the 
partitioned  I/O  modules  to  drive  the  data  bus. 
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E, 


SUMMARY 


This  chapter  is  a  guide  for  adding  I/O  modules  to  the  CFTP  XSOC-based 
mierocontroller.  Specifieally,  instantiating  a  new  I/O  module  in  the  top-level  xl  control 
file  and  the  contents  of  the  wrapper  and  I/O  modules  were  detailed.  The  next  ehapter 
deseribes  the  operation  of  the  modified  X2  Configuration  module  with  the 
microcontroller. 
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IX.  X2  CONFIGURATION  MODULE 


A,  GENERAL  DESCRIPTION 

The  X2  Configuration  Module  eonsists  of  two  files;  the  original  VHDL  code 
written  by  Mindy  Surratt  and  a  wrapper  function  for  the  XSOC  interface  [15].  It  reads 
data  from  the  Intel  28F320C3  32Mbit  Flash  RAM  and  uses  it  to  configure  X2  via  a 
dedicated  connection.  Source  code  for  this  module  is  located  in  Appendix  A,  Section  O 
(selectmap  config  xsoc.v)  and  Appendix  B,  Section  A  (selectmap_config.vhd). 

B,  XSOC  INTERFACE 

The  X2  configuration  module  has  four  memory-mapped  ports.  They  are  listed  in 
Table  6. 


Address  (Hex) 

Function 

0x00 

Configure  Request 

0x02 

Flash  Load  Base  Address  (Low  Word) 

0x04 

Flash  Load  Base  Address  (High  Word) 

0x06 

Status 

Table  6.  X2  Configuration  Module  Address  Map 


To  configure  X2,  the  following  steps  must  be  followed.  First,  write  the  high  and 
low  words  of  the  flash  base  address  to  their  respective  port  addresses.  If  not  specified  the 
address  defaults  to  zero.  Next,  write  a  one  to  the  Configure  Request  address  to  initiate 
the  configuration  process.  Finally,  poll  the  Status  byte  until  it  returns  a  zero  value. 

C.  VHDL  CODE 

The  original  VHDL  selectmap  config.vhd  module  was  left  intact  with  two 
changes.  The  first  modification  was  commenting  out  all  the  direct  access  to  the  PC/104 
port.  The  status  message  that  was  displayed  is  easily  recreated  by  polling  the  status  byte 
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and  using  the  processor  to  send  the  configuration  complete  message.  The  second 
modification  was  adding  the  fiash  memory  base  address  option. 

In  summary,  this  chapter  described  the  implementation  and  operation  of  the  X2 
Configuration  Module.  The  next  chapter  describes  the  X2  Configuration  Readback 
Module. 
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X.  X2  CONFIGURATION  READBACK  MODULE 


A,  GENERAL  DESCRIPTION 

The  X2  Configuration  Readback  Module  eonsists  of  two  files;  the  original  VHDL 
eode  written  by  Mindy  Surratt  and  a  wrapper  function  for  the  XSOC  interface  [15].  It 
continuously  reads  configuration  data  from  both  the  flash  RAM  and  X2  and  performs  a 
comparison.  If  a  disagreement  is  found  an  interrupt  issued  to  the  processor.  Readback  is 
resumed  once  the  processor  acknowledges  the  error.  Source  code  for  this  module  is 
located  in  Appendix  A,  Section  P  (selectmap_rb_xsoc.v)  and  Appendix  B,  Section  B 
(selectmapreadback.vhd). 

B,  XSOC  INTERFACE 


The  X2  Configuration  Readback  module  has  nine  memory-mapped  ports.  They 
are  listed  in  Table  7. 


Address  (Hex) 

Read/Write 

Function 

0x00 

Write 

Readback  Request 

0x01 

Read 

Readback  Status 

0x02 

Read 

SelectMap  Read  Data 

0x04 

Read 

Error  Eocation  High 

0x06 

Read 

Error  Eocation  Eow 

0x08 

Read 

Error  Word 

OxOA 

Read 

Data  Ready 

OxOC 

Write 

Flash  Eoad  Base  Address  (Eow  Word) 

OxOE 

Write 

Flash  Eoad  Base  Address  (High  Word) 

Table  7.  X2  Configuration  Readback  Module  Address  Map 
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There  are  three  addresses  with  write  functionality.  They  are  the  two  Flash  Load 
Base  addresses  and  the  Readback  Request  address.  To  prepare  to  begin  data  readback, 
write  the  high  and  low  flash  load  base  addresses  to  their  respective  ports.  The  default 
flash  load  base  address  is  0x48.  Note  that  this  is  NOT  the  same  address  as  the  flash  load 
base  address  used  by  the  X2  configuration  module  since  the  actual  configuration  data 
does  not  start  at  offset  0  from  the  FPGA  initialization  data  generated  by  ISE.  Writing  a 
0x1  to  the  Readback  Request  address  will  initiate  the  readback  process. 

If  there  is  an  error  detected,  reading  the  Data  Ready  status  byte  will  result  in  a 
0x1.  Similarly  the  interrupt  assigned  to  the  module  will  be  asserted.  Reading  the 
SelectMap  Read  Data  will  return  the  byte  in  error.  Reading  the  Error  Location  Low  and 
High  addresses  will  return  the  words  containing  the  address  of  the  error.  Finally,  reading 
Error  Word  will  return  the  correct  word  present  in  the  Flash  Memory.  Reading  the  Error 
Word  address  is  also  considered  a  processor  acknowledge  and  causes  the  module  to 
deassert  the  interrupt  request,  clear  Data  Ready,  and  resume  the  configuration  readback. 

C.  VHDL  CODE 

The  original  VHDF  selectmap  rb.vhd  module  was  left  intact  with  two  changes. 
The  first  modification  was  disabling  all  direct  access  to  the  PC/104  port.  Instead, 
memory-mapped  data  registers  are  loaded  with  the  report  data  for  further  access  and 
formatting  by  the  processor.  The  second  modification  was  adding  the  flash  memory  base 
address  option. 

In  summary,  this  chapter  described  the  implementation  and  operation  of  the  X2 
Configuration  Readback  Module.  The  next  chapter  describes  the  Error  Reporting 
Subsystem. 
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XI.  ERROR  REPORTING  SUBSYSTEM 


A,  GENERAL  DESCRIPTION 

The  error  reporting  subsystem  takes  the  syndrome  output  from  the  voter  modules 
via  the  global  error  bus  and  makes  it  available  for  proeessor  retrieval.  Alb  entry  queue 
stores  the  syndromes  until  they  are  retrieved.  A  delay  of  at  least  two  eloek  eyeles  elapses 
between  the  error  and  proeessor  notifieation.  This  delay  is  insignifieant  sinee  any 
eorreetable  error  would  have  already  been  eorreeted.  The  souree  eode  for  this  module  is 
loeated  in  Appendix  A,  Seetions  G  (errorfifo.v)  and  M  (queue l.v). 

B,  SYNDROME  REPORTING  BUS 


Syndromes  are  reported  from  the  voter  modules  to  the  error  reporting  subsystem 
via  the  global  16-bit  errorbus.  This  bus  is  eonfigured  as  a  wired-OR  network.  Bit 
designations  are  listed  in  Table  8. 


Bit 

Function 

Bit 

Bit 

Bit 

0 

Error  A 

4 

Spare 

8 

ID  3 

12 

ID  7 

1 

Error  B 

5 

IDO 

9 

ID  4 

13 

ID  8 

2 

Error  C 

6 

ID  1 

10 

ID  5 

14 

ID  9 

3 

Spare 

7 

ID  2 

11 

ID  6 

15 

Collision 

Det 

Table  8.  Syndrome  Reporting  Bus,  Voter  Format 


C.  VOTER  CONNECTION 

If  a  voter  deteets  no  errors,  no  syndrome  is  output  to  the  bus.  If  a  voter  deteets  an 
error,  it  drives  the  bus  with  its  assigned  ID  and  whether  input  A,  B,  or  C  was  in  error. 
Since  the  network  is  configured  as  wired-OR  and  collisions  may  occur,  bit  15  is 
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designated  as  a  eollision  deteetion  bit.  If  the  voter  is  in  an  error  eondition  and  is  driving 
the  bus,  pin  15  is  asserted  if  bus  bits  0-14  are  not  what  the  voter  is  outputting.  The 
eollision  still  oecurs  and  is  entered  in  the  queue  but  is  recognized  as  such. 

D,  QUEUE 

The  queue  is  an  eight  entry  16-bit  queue.  The  queue  module  ports  are  listed  in 
Table  9.  It  uses  the  same  basic  storage  structure  as  the  register  file  except  there  is  only 
one  output  bus.  Writes  take  one  cycle  to  propagate  through  the  queue.  There  are  three 
registers  that  control  queue  operation:  first  (4  bits),  store_nxt  (4  bits),  and  count  (5  bits). 
First  stores  the  read  pointer,  store_nxt  the  write  pointer,  and  count  stores  the  total  number 
of  data  elements  in  the  queue.  These  pointers  are  advanced  depending  on  the  current 
state  and  input  status.  Simultaneous  reads  and  writes  are  permitted. 


Signal 

Bus  Size 

Input/Output 

Function 

CLK 

1 

Input 

Queue  clock 

RST 

1 

Input 

Queue  reset 

ADD 

1 

Input 

Data  input  to  DIN  is  added  to  the  queue;  if 

count  was  zero  the  data  is  output  on  the  next 

clock  cycle 

REMOVE 

1 

Input 

Data  is  removed  from  the  queue  and  the  next 

element  output  to  DOUT 

DIN 

16 

Input 

Data  input  for  the  queue 

DOUT 

16 

Output 

Data  output  for  the  queue 

EMPTY 

1 

Output 

Set  if  count  =  0 

NEAREYFUEE 

1 

Output 

Set  if  count  =  7 

FUEE 

1 

Output 

Set  if  count  =  8 

Table  9.  Queue  Module  Ports 
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E, 


XSOC  INTERFACE 


The  processor  interface  is  implemented  as  a  standard  XSOC  I/O  module.  When 
the  queue  has  data  for  the  processor  to  read,  it  outputs  that  data  to  dout  and  the  empty 
flag  is  deasserted.  The  Error  Data  Present  status  address  as  well  as  the  interrupt  request 
lines  are  simply  the  inverted  output  of  the  empty  flag  from  the  queue.  Caution  should  be 
observed  when  enabling  interrupts  to  the  Error  Reporting  Module  since  a  configuration 
error  could  cause  a  report  on  every  clock  cycle  causing  constant  execution  of  the  interrupt 
handling  routine.  When  the  Error  Data  address  is  read  it  also  causes  a  queue  remove 
operation  to  take  place.  The  address  map  is  shown  in  Table  10. 


Address  (Hex) 

Function 

0x00 

Error  Data,  queue  remove 

0x02 

Error  Data  Present 

Table  10.  Error  Reporting  Module  Address  Map 


F.  FAULT  TOLERANCE  IN  THE  ERROR  REPORTING  MODULE 

The  error  reporting  module  is  intended  to  be  used  as  an  indication  of  errors 
occurring  and  not  to  be  used  for  taking  immediate  action  upon  receipt  of  a  single  error. 
Considering  the  cost  of  making  a  redundant  error  reporting  bus  the  decision  was  made 
not  to  implement  any  fault  tolerance  on  the  data  portions  of  the  Error  Reporting  Module. 
The  queue  control  structure  and  XSOC  I/O  interface  are  fault  tolerant,  however. 

In  summary,  this  chapter  described  the  global  error  reporting  bus  and  the  Error 
Reporting  Module  that  allows  XSOC  to  retrieve  the  errors.  The  next  chapter  describes 
the  PC/104  Interface  Module. 
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XII.  PC/104  INTERFACE  MODULE 


A,  GENERAL  DESCRIPTION 

The  PC/ 104  Interface  module  manages  the  connection  from  XI  to  the  PC/ 104 
processor.  Handshaking  is  done  via  a  memory  mapped  status  register.  A  16-entry  queue 
buffers  data  from  XI  to  the  PC/104  processor  board.  The  PC/104  Interface  module 
xsoc_pcl04  was  created  by  translating  the  VHDL  original  created  by  Mindy  Surratt  into 
Verilog  [15].  Two  notable  changes  were  made  to  the  existing  code:  replacing  the  Xilinx 
CoreGen  generated  queue  and  adding  the  XSOC  interface.  Source  code  for  this  module 
is  located  in  Appendix  A,  Sections  W  (xsoc_pcl04.v)  and  K  (pcl04queue.v). 

B,  XSOC  INTERFACE 

The  XSOC  interface  offers  I/O  mapped  operation  for  writing  data  and  either  I/O 
mapped  or  interrupt-driven  received  data.  The  address  map  is  shown  in  Table  1 1 . 


Address  (Hex) 

Function 

0x00 

Data  (In  or  Out) 

0x02 

Output  queue  full 

0x03 

Output  queue  empty 

0x04 

Output  queue  nearly  full 

0x05 

Received  Data  Ready 

Table  11. 

PC/ 104  Interface  Address  Map 

Data  writes  to  the  PC/104  bus  are  initiated  by  the  processor  when  the  Data 

address  is  written.  The  LD  CE  signal  enables  an  add  operation  to  place  the  value  on  the 

data  bus  in  the  queue.  Only  byte  write  operations  are  supported.  There  are  three  status 

bytes  that  indicate  the  output  queue  status.  QUEUE  EULL,  indicating  that  there  is  no 

room  for  additional  output  data,  QUEUE  EMPTY  indicating  the  queue  is  empty,  and 
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OUTPUT  QUEUE  NEARLY EULL,  which  indicates  there  is  only  one  free  slot  remaining 
in  the  queue.  A  non-zero  value  in  these  bytes  mean  the  eondition  is  true. 

Data  reads  from  the  PC/104  bus  are  aeeomplished  by  reading  the  Data  address. 
The  Received  Data  Ready  address  is  non-zero  when  data  is  ready  to  be  retrieved.  The 
interrupt  request  line  assigned  to  the  PC/ 104  interfaee  will  also  be  asserted  if  there  is  data 
waiting.  There  is  no  ability  to  disable  interrupts  in  the  PC/104  interfaee  module;  that  task 
is  aeeomplished  in  the  Interrupt  Control  module.  When  the  data  address  is  read  it  changes 
the  status  register  to  aeknowledge  that  XSOC  is  ready  for  more  data,  elears  the  Received 
Data  Ready  status  byte,  and  deasserts  the  interrupt  request. 

C.  QUEUE 

The  CoreGen  queue  was  replaeed  with  one  using  a  similar  strueture  to  the  one 
used  in  the  Error  Reporting  Interfaee.  The  first  implementation  of  the  queue  was  64 
entries  as  was  the  original  CoreGen  part  but  due  to  limited  FPGA  resourees  it  was 
redueed  to  16  entries.  This  reduetion  should  not  pose  a  problem  as  the  RAM  in  the 
mieroeontroller  may  be  used  as  additional  buffering  spaee.  An  output  register  was  also 
added  to  the  Error  Reporting  Interfaee  queue  strueture  as  the  CoreGen  queue  did  not 
output  data  until  a  read  operation  was  proeessed. 

Sinee  the  PC/104  bus  operates  asynehronously  with  XI,  the  queue  had  to  operate 
with  multiple  eloek  domains.  The  XI  -'20Mhz  cloek  is  eonsidered  more  than  two  times 
faster  than  the  PC/104  data  transfer  rate  so  the  XI  eloek  was  used  to  eloek  queue 
operations,  with  only  the  read  operation  eloeked  by  the  T  IOREAD  i  signal  from  the 
PC/104  bus.  The  read  is  eaptured  by  a  D  flip-flop  with  an  asynchronous  clear,  with  the 
output  of  the  flip-flop  eonneeted  to  the  read  input  of  the  queue.  When  the  read  input  to 
the  queue  is  high,  the  queue  will  reset  the  flip-flop  on  the  next  positive  edge  when  it 
proeesses  the  read  operation.  The  clear  signal  will  stay  asserted  for  one  system  clock 
cycle.  After  the  clear,  the  proeess  is  ready  for  another  operation. 
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D,  PC/104  INTERFACE 


The  PC/104  interface  code  was  basically  unchanged  from  the  original  design  by 
Mindy  Surratt.  Table  12  lists  the  signals  associated  with  the  PC/ 104  interface  that  are 
currently  in  use.  (The  interface  is  16  bits  but  16  bit  transfers  have  not  been  implemented.) 
Note  that  handshaking  signals  are  active  low.  In  addition  to  the  handshaking  signals,  the 
PC/104  computer  can  request  the  status  register  be  driven  to  the  data  bus.  The  status 
register  is  shown  in  Table  12.  ALLOW  PROC  READ  indicates  to  the  PC/104  computer 
that  there  is  data  waiting  from  CFTP.  BLOCK  PROC  WRLTE  indicates  to  the  PC/104 
computer  that  the  previous  byte  written  has  not  been  processed  and  CFTP  is  not  ready  for 
more  data.  FIFO  ALMOST  FULL  is  connected  to  the  queue  output  of  the  same  name. 


Bit 

Function 

0 

ALLOWPROCREAD 

1 

BLOCKPROCWRITE 

2 

FIFOAEMO  STFUEE 

Table  12.  PC/ 104  Status  Register 


1.  Data  Reads 

The  PC/ 104  signals  are  shown  in  Table  13.  The  addresses  supported  by  the 
PC/ 104  interface  are  shown  in  Table  14.  The  two  data  sources  for  the  CFTP  PC/ 104 
interface  are  the  status  register  and  the  output  of  the  queue.  Data  reads  begin  when  the 
PC/104  computer  drives  T  ADDRESS  i  and  T  IOCS  i  goes  low.  Then  T  IOREAD  i 
goes  low,  either  driving  the  output  of  the  status  register  or  the  output  register  of  the  queue 
to  the  bus.  The  bus  drivers  are  disabled  when  T  IOREAD  i  goes  high. 
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Name 

Width 

In/Out 

Function 

TDATAio 

8 

Both 

8-bit  bidirectional  data  transfer 

TADDRESSi 

10 

In 

Address 

TIOREADi 

1 

In 

Read  Strobe 

TIOWRITEi 

1 

In 

Write  Strobe 

TIOCSJ 

1 

In 

Address  Strobe 

TINTRPTo 

1 

Out 

Interrupt  request  to  PC/ 104 

computer 

Table  13.  PC/104  Interface  Signals 


Address  (Hex) 

In/Out 

Function 

0x340 

Both 

Data  Transfer 

0x342 

Output 

Status  Register 

0x344 

Input 

INTACK 

0x345 

Input 

INTOFF 

0x346 

Input 

INTON 

Table  14.  PC/ 104  Bus  Address  Map 


2,  Data  Writes 

Data  writes  begin  in  the  same  manner  as  reads  with  the  PC/ 104  computer  driving 
T  ADDRESS  i  and  T  IOCS  i  low.  Then  T  IOWRITE  i  is  driven  low  to  indicate  valid 
data  on  the  bus.  Interrupts  to  notify  the  PC/104  processor  board  of  data  waiting  are 
supported  but  not  currently  in  use  by  the  PC/104  board  software.  Specifically,  the  three 
interrupt  addresses  allow  the  PC/ 104  board  to  turn  data  ready  interrupts  on,  off,  or 
acknowledge  a  pending  interrupt. 
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E, 


FAULT  TOLERANCE  IN  THE  PC/104  INTERFACE 


The  PC/ 104  Interface  is  not  completely  fault  tolerant.  The  queue  consumes  a 
great  deal  of  FPGA  space;  making  three  redundant  copies  is  not  possible  due  to  FPGA 
resource  limitations.  The  data  storage  element  of  the  queue  is  not  triplicated;  all  the  other 
structures  in  the  PC/104  interface  are. 

In  summary,  this  chapter  discussed  the  implementation  and  use  of  the  PC/104 
Interface  Module.  The  next  chapter  describes  the  Timestamp  Counter  and  Interrupt 
Controller  Module. 
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XIII.  TIMESTAMP  COUNTER/INTERRUPT  CONTROLLER 

MODULE 


A,  GENERAL  DESCRIPTION 

The  Timestamp  Counter/Interrupt  Module  has  three  functions.  First,  it 
implements  a  dual-port  timestamp  counter.  Second,  it  implements  interrupt  handling  for 
XSOC.  Third,  it  functions  as  a  periodic  timer.  Source  code  for  this  module  is  located  in 
Appendix  A,  Section  U  (xscounter.v). 

When  the  project  was  near  completion  it  was  noted  that  the  FPGA  resources  were 
insufficient  to  hold  the  entire  design.  The  counter  was  modified  for  32,  48,  or  64  bit 
operation,  selectable  via  'define  statements  in  the  module.  The  software  interface  was 
not  changed;  reading  values  for  the  words  that  do  not  exist  in  the  48  or  32  bit 
implementation  returns  a  zero  value.  Reducing  the  counter  size  to  48  bits  requires  no 
further  action  as  the  timer  rolls  over  after  approximately  160  days.  The  32-bit  timer  will 
roll  over  every  3.6  minutes.  This  short  rollover  time  will  require  a  software 
implementation  of  the  high  32  bits  of  the  counter.  It  is  easily  achieved  using  a  periodic 
timer  interrupt  to  ensure  activation  of  the  interrupt  service  routine  that  then  increments 
the  software  counter  when  a  rollover  is  detected. 

B,  TIMESTAMP  COUNTER 

The  timestamp  counter  is  intended  to  replace  the  64-bit  counter  present  in  the  XI 
control  FPGA.  The  counter  in  XI  was  used  for  timestamps  on  data  reports  sent  to  the 
PC/ 104  processor  board  via  the  PC/ 104  bus. 

This  counter  has  two  64-bit  read  ports,  with  each  port  divided  into  four  16-bit 
words.  The  I/O  space  address  and  the  corresponding  functions  are  shown  in  Table  15. 
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Address  (Hex) 

Function 

0x00 

Counter  Port  1,  Least  Significant  Word 

0x02 

Counter  Port  1,  Intermediate  Word  1 

0x04 

Counter  Port  1,  Intermediate  Word  2 

0x06 

Counter  Port  1,  Most  Significant  Word 

0x08 

Counter  Port  2,  Least  Significant  Word 

OxOA 

Counter  Port  2,  Intermediate  Word  1 

OxOC 

Counter  Port  2,  Intermediate  Word  2 

OxOE 

Counter  Port  2,  Most  Significant  Word 

Table  15.  Counter  Address  Spaee 


When  the  least  significant  word  of  a  port  is  read,  it  causes  the  other  48  bits  of  the 
counter  to  be  latched  into  the  three  most  significant  words.  In  this  manner  all  64  bits  of 
the  timer  can  be  read  without  concern  for  data  values  changing  between  read  cycles.  It  is 
not  necessary  to  read  all  words  of  a  particular  port;  any  read  on  the  least  significant  word 
causes  a  reload  of  the  other  registers  of  that  port.  Two  ports  were  supplied  with  the 
intention  that  the  interrupt  handler  be  given  port  two  and  applications  given  port  one. 

C.  INTERRUPT  CONTROLLER 

The  XSOC  SoC  has  a  single  input  pin  that  expects  a  one  clock  cycle  pulse  on  an 
interrupt  request.  It  does  not  disable  the  interrupt  signal  while  it  is  processing  the 
interrupt  handler. 

The  interrupt  controller  module  is  designed  to  service  the  relatively  low  data 
requirements  of  the  I/O  ports  on  XI  and  was  therefore  made  as  simple  as  possible.  The 
higher-rate  X2  interface  was  intended  to  be  the  "main"  task  of  the  processor  and  is 
implemented  using  busy-waiting  for  I/O  operations. 
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The  interrupt  eontroller  does  not  allow  for  interrupts  to  be  interrupted  and  has  no 
interrupt  priority  eapability.  There  is  no  provision  to  signal  XSOC  whieh  deviee  caused 
the  interrupt.  Since  there  are  relatively  few  I/O  devices  attached  to  XSOC  and  their 
status  registers  only  require  one  clock  cycle  to  check  (albeit  with  additional  clock  cycles 
used  by  conditional  branches)  implementing  a  more  complicated  controller  would  have 
yielded  a  minimal  improvement.  Additionally,  the  interrupt  handler  routine  can 
implement  a  software  "priority"  by  checking  the  status  of  the  devices  in  the  desired  order 
of  importance. 

The  interrupt  controller  has  eight  input-request  inputs.  Each  input  has  an  enable 
register  in  the  address  map.  There  is  also  a  global  enable  for  all  interrupts.  They  are 
equal  in  priority  and  once  an  interrupt  is  being  processed  other  interrupts  must  wait  until 
the  first  interrupt  has  been  serviced  by  the  processor. 

The  states  of  the  interrupt  controller  are  shown  in  Figure  14.  Transitions  occur  on 
positive  clock  edges.  On  power-on,  the  controller  starts  in  the  idle  state.  When  it 
receives  one  or  more  interrupts,  it  then  goes  to  the  interrupt  state  for  one  clock  cycle.  It  is 
during  this  state  when  the  processor  receives  the  interrupt  signal.  It  then  continues  to  the 
Ack  Wait  state  where  it  waits  for  an  acknowledgement  from  XSOC  that  the  interrupt  has 
been  processed.  It  is  expected  that  this  will  be  the  last  instruction  executed  before 
returning  execution  to  the  interrupted  program.  Then  the  delay  state  is  entered  where  it 
will  remain  until  the  delay  timer  expires.  The  delay  timer  is  defined  by  the 
INT_DELAY_CLK  constant  and  is  currently  set  to  five  clock  cycles.  These  clock  cycles 
are  intended  to  allow  the  jal  instruction  issued  at  the  conclusion  of  the  interrupt  handler 
to  complete  before  processing  another  interrupt.  Once  the  delay  timer  expires  it  reenters 
the  idle  state.  Note  that  this  process  requires  the  software  interrupt  handler  to  clear  the 
interrupt  request  from  the  device  that  desired  service. 
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Figure  14.  Interrupt  Controller  States 

The  address  map  of  the  interrupt  controller  is  listed  in  Table  16.  The  ports  are  all 
write-only.  Each  address  is  byte-wide  but  only  bit  0  is  used  to  set  the  enable  value. 
Writing  0x1  to  an  address  will  enable  that  particular  feature.  Writing  any  value  to  the 
Interrupt  Acknowledge  address  will  send  an  acknowledge  the  interrupt  controller  which 
will  then  transition  to  the  delay  state. 
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Address  (Hex) 

Function 

0x10 

Intermpt  Acknowledge 

0x11 

Global  Interrupt  Enable 

0x12 

Interrupt  0  Enable 

0x13 

Intermpt  1  Enable 

0x14 

Intermpt  2  Enable 

0x15 

Intermpt  3  Enable 

0x16 

Intermpt  4  Enable 

0x17 

Intermpt  5  Enable 

0x18 

Intermpt  6  Enable 

0x19 

Intermpt  7  Enable 

Table  16.  Interrupt  Controller  Address  Spaee 


D.  TIMER 

The  addition  of  a  timer  to  the  eounter  required  only  a  small  amount  of  additional 
logie.  The  timer  module  will  cause  periodic  interrupts  to  occur,  with  the  interrupt  period 
determined  by  the  timer  mask.  The  timer  mask  is  a  16-bit  value  that  corresponds  to  bits 
1 6-3 1  of  the  counter  value.  The  counter  bits  and  timer  mask  bits  are  ANDed  and  then  the 
16  resulting  bits  are  ORed  to  form  a  single  output.  The  result  of  the  AND/OR  operation 
is  used  to  generate  an  interrupt.  Table  17  shows  the  address  map  of  the  timer.  The  timer 
mask  should  only  be  written  with  the  values  corresponding  to  the  timer  intervals  shown 
in  Table  18.  Writing  to  the  Timer  Acknowledge  address  will  clear  the  timer  interrupt. 
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Address  (Hex) 

Function 

OxlA 

Timer  Mask 

OxlC 

Timer  Acknowledge 

Table  17.  Timer  Address  Spaee 


Value  (Hex) 

Interrupt  Period  (s) 

Value  (Hex) 

Interrupt  Period  (s) 

0x0001 

6.43  X  10'^ 

0x0100 

1.644 

0x0002 

1.28  X  10'^ 

0x0200 

3.28 

0x0004 

2.57  X  10'" 

0x0400 

6.57 

0x0008 

5.14  X  10'^ 

0x0800 

13.2 

0x0010 

0.103 

0x1000 

26.3 

0x0020 

0.206 

0x2000 

52.6 

0x0040 

0.411 

0x4000 

105 

0x0080 

0.822 

0x8000 

210 

Table  18.  Timer  Mask  Values  (20.4  MHz  System  Cloek) 


This  ehapter  deseribed  the  design  and  operation  of  the  Counter  and  Interrupt 
Controller  Module.  It  eoneludes  the  hardware  design  seetion  of  this  thesis.  The  next 
ehapter  describes  the  process  of  compiling  and  loading  software  into  XSOC. 
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XIV.  COMPILING/LOADING  XSOC  SOFTWARE 


A,  PREPARING  FOR  SOFTWARE  DEVELOPMENT 

The  software  design  and  load  proeess  eonsists  of  four  steps:  writing  C  programs, 
eompiling  them  with  a  modified  version  of  LCC,  eonverting  the  output  of  the  C  eompiler 
into  a  Verilog  file,  and  finally  eompiling  the  software  image  into  the  FPGA  load  image 
with  fSE. 

The  first  two  steps  are  identieal  to  those  detailed  by  Jan  Gray  in  his  "Getting 
Started  with  the  XSOC  Projeet  vO.93"  [16].  The  XSOC  distribution  is  available  at 
<http://www.fpgaepu.org/xsoe/xsoe-beta-093.zip>.  Unzip  the  distribution  and  denote  the 
home  directory  you  installed  it  in  as  <XSOCHOME>. 

Jan  Gray  modified  ECC  to  work  with  XSOC.  To  get  the  compiler  working,  install 
the  ECC  executables.  ECC  version  4.1  (now  out-of-date  and  replaced  by  version  4.2)  is 
still  available  via  ftp  in  /pub/packages/lcc/lcc41.exe  at  ftp.cs.princeton.edu.  It  is  a  cross¬ 
platform  C  compiler  developed  by  Christopher  W.  Eraser  and  David  R.  Hanson.  Install 
the  package  and  note  the  installation  directory  as  <ECCHOME>. 

Next,  copy  the  files  from  the  <XSOCHOME>/lcc-xr  16/bin  directory  (Icc- 
xrl6.exe,  libxrl6.s,  rcc-xrl6.exe,  reset.s,  and  xrl6.exe)  to  the  <ECCH0ME>/4. 1/bin 
directory.  Unless  you  work  in  the  <ECCH0ME>/4. 1/bin  directory  you  will  need  to  add 
that  directory  to  your  PATH  so  Windows  will  find  the  executables. 

The  files  reset.s  and  libxrl6.s  must  be  modified  for  use  with  our  CETP 
implementation.  Specifically,  the  stack  pointer  is  set  to  an  out  of  range  address  (32K  vs. 
8K)  and  there  is  no  need  to  execute  the  zero  memory  routine  since  the  BRAMs  are 
initialized  with  known  values  after  configuration.  Modified  libxrl6.c  and  reset.s  file 
contents  are  included  in  Appendices  D  and  E.  Note  that  libxrl6.c  will  need  to  be 
compiled  after  modification. 
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The  final  tool  is  the  hextov  format  conversion  tool  created  specifically  for  this 
thesis  to  convert  the  .hex  output  of  the  lcc-xrl6  compiler  to  a  Verilog  file.  This  tool 
converts  the  ASCII  output  file  that  was  intended  for  the  XESS  development  board 
software  loader  to  a  format  usable  by  the  CFTP  microcontroller. 

The  block  RAMs  are  initialized  through  multiple  DEFPARAM  statements  that 
indicate  their  startup  values.  Specifically,  each  of  these  DEFPARAM  statements 
contains  256  bits  of  data.  Programs  larger  than  256  bits  will  contain  multiple 
DEFPARAM  statements  per  block  RAM.  The  format  is  a  standard  Verilog  number 
format,  with  the  four  most  significant  bits  as  the  first  hexadecimal  character  listed. 
Additionally,  since  ECC  coding  is  used  in  the  memory  subsystem,  hextov  calculates  the 
correct  parity  bit  information  and  generates  the  DEFPARAM  statements  for  those  six  bits 
as  well. 

The  tool  takes  one  argument,  the  name  of  the  input  file.  This  file  is  assumed  to  be 
named  .hex;  do  not  add  the  .hex  extension  when  specifying  the  filename.  The  output  file 
will  be  the  same  name  as  the  input  filename  except  with  a  .v  extension.  For  ease  of  use, 
copy  hextov.exe  to  the  <ECCHOME>/4.1/bm  directory. 

After  generating  the  .v  file,  edit  the  bram4kx22.v  file  and  change  the  'include 
entry  to  the  appropriate  filename  for  the  file  generated  above.  Then  force  a  recompile  of 
the  FPGA. 

The  CFTP  microcontroller  was  created  using  Xilinx  ISE  9.21.  This  was  a  newer 
version  of  the  ISE  software  than  had  previously  been  used  with  CFTP.  Additionally, 
recent  projects  had  not  used  the  ISE  Graphical  User  Interface  (GUI)  to  generate  the  XI 
configuration  file.  Instead,  they  had  used  command-line  versions  of  the  ISE  tools  and  a 
Makefile  for  the  make  software  building  utility  to  generate  the  configurations  to  load  into 
the  FPGAs. 

The  ISE  GUI  is  used  to  complete  the  steps  up  to  and  including  the  "Implement 
Design"  process  in  the  ISE  processes  window.  It  is  not  used  to  generate  the 
programming  file.  Instead,  portions  of  the  make  process  are  duplicated  using  a  small 
batch  file  and  the  bitgen  command  file.  The  batch  file  contains  the  following  two  lines: 
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bitgen  -b  -w  -f  bitfile_Vl.cmd xl control. ncd 
promgen  -b  -w  -u  0  xl  control. bit  -p  bin 

The  bitgen  bitfile  Vl  .emd  eommand  file  eontains  the  bitgen  fiags  neeessary  for 
proper  operation  with  CFTP.  Configuration  files  generated  without  these  fiags  will  not 
funetion.  After  the  proeesses  in  the  batch  file  are  complete,  a  file  named  xlcontrol.bin 
containing  the  finished  Xl  configuration  will  be  in  the  project  directory. 

B,  SOFTWARE  PROCESS  EXAMPLE 

The  following  example  assumes  the  installation  tools  have  been  successfully 
installed.  The  C  file  with  the  program  is  named  "hello. c". 

Icc-xrl6  -V  -c  hello. c 

lcc-xrl6  -V  -0  hello.hex  -lst=hello.lst  hello. o 

hextov  hello 

You  will  now  have  a  <hello.v>  file  that  can  be  included  in  the  bram4k22.v 
Verilog  source  file.  Additionally  there  is  a  <hello.lst>  file  that  contains  a  breakdown  of 
memory  locations  and  human-formatted  versions  of  the  assembler  code  they  contain.  It 
is  useful  for  debugging  but  is  not  required  for  compilation. 

The  next  chapter  summarizes  this  thesis,  presents  conclusions,  and  suggests  future 
improvements  to  the  CFTP  design. 
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XV.  CONCLUSIONS  AND  RECOMMENDATIONS 


This  thesis  detailed  the  process  of  adapting  CFTP's  XI  control  FPGA  from  one 
containing  fixed-function  VHDL  blocks  to  one  containing  a  soft-core  microcontroller  and 
software-controlled  HDL  modules.  An  existing  soft-core  System-on-a-Chip  RISC 
computer  was  extensively  modified  and  enhanced  to  meet  the  design  goals  while  existing 
functional  blocks  were  altered  to  work  with  the  microcontroller.  Lastly,  detailed 
instructions  on  how  to  create  new  I/O  modules  and  how  to  compile  and  load  software 
were  presented. 

A,  SUMMARY 

The  CFTP  is  a  spaceborne  platform  for  testing  the  effect  of  SEUs  on  fault  tolerant 
FPGA  designs.  It  consists  of  a  PC/104  computer  board  and  an  experiment  board  with 
two  FPGAs,  with  one  FPGA  designated  the  experiment  and  the  other  the  control.  The 
PC/104  computer  board  and  the  in-use  control  FPGA  are  not  fault  tolerant.  Additionally, 
the  control  FPGA  is  constructed  of  fixed-function  modules  that  communicate  with  each 
other.  Both  the  fixed-function  modules  in  the  control  FPGA  and  the  experiments  in  the 
experiment  FPGA  are  instantiated  from  HDL  using  Xilinx  ISE  CAD  tools. 

This  thesis  detailed  the  process  of  selecting  and  modifying  an  existing 
microcontroller  for  use  in  the  CETP  control  EPGA.  Specifically,  XSOC,  a  soft-core  16- 
bit  RISC-based  System-on-a-chip  was  selected  [3].  XSOC  was  extensively  modified  to 
feature  TMR,  while  the  memory  subsystem  was  redesigned  to  utilize  Hamming  ECC  and 
the  block  RAMs  present  in  the  EPGA.  Error  detection  circuits  built  into  the  TMR  voters 
and  an  Error  Reporting  I/O  module  provide  indication  of  error  activity. 

Existing  I/O  modules,  including  the  PC/104  interface,  the  X2  SelectMap 
configuration,  and  readback  modules  were  modified  to  support  the  new  microcontroller 
interface  and  were  made  fault  tolerant  through  use  of  TMR.  A  sample  I/O  module  was 
created  with  detailed  instructions  on  how  to  add  more  I/O  modules  to  the  system.  A  new 
I/O  module  was  created  implementing  an  interrupt  controller,  a  timestamp  counter,  and  a 
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programmable  timer  greatly  enhaneing  the  eapabilities  of  the  microeontroller.  A 
software  tool  was  ereated  to  eonvert  XSOC  program  binaries  into  Verilog  initialization 
strings  for  loading  into  the  FPGA’s  bloek  RAMs.  Finally,  a  step-by-step  guide  on 
ereating  and  loading  software  in  the  mieroeontroller  was  presented. 

B,  CONCLUSIONS 

A  mieroeontroller-based  fault  tolerant  XI  eontrol  FPGA  was  sueeessfully 
developed.  The  mieroeontroller  and  PC/104  interfaee  were  tested  on  CFTP  hardware. 
The  other  I/O  modules  were  tested  using  a  software -based  simulation  tool. 

Funetionality  was  improved  due  to  the  flexibility  of  software  eontrolled  modules. 
The  ability  to  use  C  and  assembly  language  to  program  the  mieroeontroller  should  make 
implementing  future  experiments  easier  as  the  user  only  needs  to  understand  the 
interfaees  to  the  deviees  rather  than  the  hardware  behind  them. 

There  was  sufficient  room  in  XI  for  a  TMR  SoC  and  I/O  modules  performing  the 
functions  of  the  previous  XI  design.  However,  the  design  used  over  92%  of  the  available 
slices  in  the  Virtex  XQVR-600  FPGA,  even  after  reducing  the  queue  sizes  and  removing 
the  error  notification  (but  preserving  the  error  correction)  capabilities  of  the  I/O  device 
voters.  Adding  functionality  to  XI  will  come  with  a  cost  of  reducing  existing  features. 

Using  Xilinx  Partitions  stops  global  optimization  from  removing  redundant 
elements  in  TMR  designs.  Although  not  the  intended  purpose  of  the  feature  it  works 
well. 

It  is  possible  to  make  ECC  memory  nearly  as  fault  tolerant  to  SEUs  as  TMR 
memory  with  the  only  weakness  being  the  non-fault-tolerant  clock.  Such  a  design  uses 
many  voters  but  offers  more  memory  capacity  than  TMR  when  using  similar  numbers  of 
RAMs. 

This  thesis  should  serve  as  a  manual  to  allow  those  wishing  to  use  the 
microcontroller-based  design  for  future  experiments.  Step-by-step  instructions  for 
compiling  software  and  new  I/O  modules  are  presented,  while  the  interfaces  for  I/O 
modules  are  defined. 
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c. 


RECOMMENDATIONS 


These  reeommendations  are  listed  in  order  of  importanee.  The  first  two  are 
neeessary  to  maximize  Xl’s  fault  tolerance  and  have  a  much  higher  priority  than  the  last 
three. 


1.  Implement  Configuration  Scrubbing  on  the  XI  FPGA 

As  mentioned  in  Chapter  V,  there  is  no  configuration  scrubbing  on  the  XI  control 
FPGA.  Without  scrubbing,  configuration  errors  will  accumulate  in  XI  until  it  is 
manually  reset.  It  is  possible  that  these  errors  will  cause  unintended  operation.  XI  is  not 
completely  fault  tolerant  until  scrubbing  is  enabled  and  "keeper"  circuits  are  not  used. 

2.  Modify  the  Code  to  Eliminate  "Keeper"  Circuits 

As  mentioned  in  Chapter  V,  when  "keeper"  circuits  are  affected  by  SEUs  the 
configuration  errors  are  not  corrected  by  configuration  scrubbing.  The  VHDL  and 
Verilog  code  should  be  modified  to  eliminate  keeper  circuit  use.  If  future  CFTP  projects 
do  not  use  Virtex  I  parts  this  recommendation  might  not  be  applicable;  time  constraints 
and  that  possibility  were  the  reason  they  were  not  addressed  by  this  thesis.  Again,  XI  is 
not  completely  fault  tolerant  until  these  non-correctable  configuration  errors  are 
eliminated  and  scrubbing  is  performed  on  XI. 

3.  Make  a  "Mini-OS"  for  the  CFTP  Microcontroller 

The  microcontroller,  although  functional,  lacks  an  application  that  takes  full 
advantage  of  its  features.  The  "Mini-OS"  should  include  an  ISR  servicing  PC/104  data 
into  CFTP,  Error  Reporting  System,  and  X2  Configuration  Scrubbing  System. 
Additional  features  should  be  a  sample  experiment  in  X2  and  the  ability  to  reconfigure 
the  experiment  in  X2  on-the-fiy. 
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4. 


Enable  16-bit  Transfers  on  tbe  PC/104  Bus 


Although  enabling  16-bit  transfers  would  require  ehanging  the  handshaking 
between  XI  and  the  PC/104  proeessor  board  and  modifieation  to  the  PC/104  queue  and 
interfaee,  it  would  double  the  available  bandwidth  between  the  two. 

5.  Automated  Memory  Scrubbing 

Use  the  seeond  port  of  the  dual-ported  RAMs  for  a  memory  serub.  As  mentioned 
in  Xilinx  XAPPIOV'"^,  the  seeond  port  ean  be  used  for  this  purpose.  Relatively  simple 
eireuitry  ean  use  a  eounter  and  small  state  maehine  to  step  through  eaeh  address, 
performing  a  read,  eorreetion,  and  writebaek.  This  funetionality  would  require  additional 
ECC  deeoders  and  eneoders  whieh  might  not  fit  due  to  laek  of  available  spaee  on  the 
FPGA. 
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APPENDIX  A:  VERILOG  SOURCE  CODE 


This  appendix  contains  the  Verilog  source  code  used  to  create  the  XI  FPGA 
configuration  file.  It  also  contains  a  sample  I/O  module  file,  iotemplate.v,  listed  in 
Section  H. 


A,  BITS.V 

defparam  ram0.INIT_00  = 

256 'hOOFCO 62000 00000001C64A8EE3E8 48 0D6581 960658 002001 000003FC05FC0505; 
defparam  raml.INIT_00  = 

256 'h00FC900900001A0A231850083162C2484D813634D850564B000005AAA3AAA203; 
defparam  ram2.INIT_00  = 

256 'hOOFCll 0900001A01 09 642D87A6 91 7A8001 98 06 601 901 54 31 0000033335333503; 
defparam  ram3.INIT_00  = 

256 'h00FC000100004D08201837A6840232180998265099D10141000005C3CBC3CA07; 
defparam  ram4.INIT_00  = 

256 'h00FDD8530702DB07FA6940681330C6F85A7D69E5A793333F000001FFF3FFF005; 
defparam  ram5.INIT_00  = 

256 'h00FDlC1004 02 881 67E08 80 6008 01FC1D4041 01 04 04 02 0001 000008 0000000001; 
defparam  ram6.INIT_00  = 

256 'h0001F50307 02DB0181E7 6F8DF7F9DEF8 68 09A02 680 9311 1F000008 0000000001; 
defparam  ram7.INIT_00  = 

256 'h00FDF3430702DB0000000000000006FD7A79E9E7A793111F0000080000000001; 
defparam  ram8.INIT_00  = 

256 'h00FC94 3101 0053102D21695DA9C6A2 401 978 65E1 9797 554B000005AAA9AAAA03; 
defparam  ram9.INIT_00  = 

256 'h00FC34 800301 12 00100010 5663 90A0 61 9420 5081 4202 OOODOOOOOl 3331333000; 
defparam  ramlO . INIT_00  = 

256 'h00FCC307 00005311212FA32DA645B2 802002 800A00220013000001C3C1C3C002; 
defparam  ramll . INIT_00  = 

256 'hOOFCC137 00005318 10 6028 0AAC05BAEBB97AE5EB97B7 555F000001FC01FC0002; 
defparam  raml2 . INIT_00  = 

256 'h00FC58C8 000038 0C7D05 97 605958 01FA5E8D7A35E8CAAAA1000007FFF4 000505; 
defparam  raml3 . INIT_00  = 

256 'h00FD90890602C90EFE9000E00023F61D64259096424CCCC2000008000800080A; 
defparam  raml4 . INIT_00  = 

256 'h00FC4 620000034 0101 4FDF15FFD9B9E209A826A09A822221000007FFF6000505; 
defparam  raml5 . INIT_00  = 

256 'h00FD108A0502AE00000000000000051A548552154853333D00000A0007FFF70D; 
defparam  rami  6 . INIT_00  = 

256 'h00FCAD7A020063139BB6E05FllE4F971A34C8D22349CAAD300000DFFF8000801; 
defparam  raml7 . INIT_00  = 

256 'h0001ClFD0603B40D65EF9BB9A22DC776CB432D3CB4E7021200000A03F7FC070C; 
defparam  raml8 . INIT_00  = 

256 ' h00FC47 5E0001 1E0317254F1A803B80 74CF8F3E3CF8 7556 6D000003FFF5FFF50F; 
defparam  rami 9 . INIT_00  = 

256 'h0000AlB501014111198875A380DB5241A516944A5126666B00000CA5AAA5AA05; 
defparam  ram20 . INIT_00  = 

256 'h00FC5FDC0300381B92BA609F0AA7FlF4DEFF7BFDEFE02220000003FC0C03FF05; 
defparam  ram21 . INIT_00  = 

256 'h0001ACF80402841EE2DE345BC3EB7CAE87801E20788EDD96000004A5A2A5A200; 
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B 


BRAM4KX22.V 


'timescale  Ins  /  Ips 

module  bram4kx22 (CLK,  WE,  ADDR,  DIN,  DOUT); 
input  CLK; 
input  [2:0]  WE; 
input  [47:0]  ADDR; 
input  [65:0]  DIN; 
output  [21:0]  DOUT; 
wire  logicO , logicl ; 
assign  logicO  =  I'bO; 
assign  logicl  =  I'bl; 

wire  [21:0]  v_din; 
wire  V  weO; 

wire  V  wel; 

wire  V  we2 ; 

wire  V  we3; 

wire  V  we4; 

wire  V  we5; 

wire  V  we6; 

wire  V  we7; 

wire  V  we8; 

wire  V  we9; 

wire  V  welO; 

wire  V  well; 

wire  V  wel2; 

wire  V  wel3; 

wire  V  wel4; 

wire  V  wel 5; 

wire  V  wel 6; 

wire  V  wel7; 

wire  V  wel 8; 

wire  V  wel 9; 

wire  V  we20; 

wire  V  we21; 

wire  [11:0]  v_addr0; 
wire  [11:0]  v_addrl; 
wire  [11:0]  v_addr2 ; 
wire  [11:0]  v_addr3; 
wire  [11:0]  v_addr4; 
wire  [11:0]  v_addr5; 
wire  [11:0]  v_addr6; 
wire  [11:0]  v_addr7; 
wire  [11:0]  v_addr8; 
wire  [11:0]  v_addr9; 
wire  [11:0]  v_addrl0; 
wire  [11:0]  v_addrll; 
wire  [11:0]  v_addrl2; 
wire  [11:0]  v_addrl3; 
wire  [11:0]  v_addrl4; 
wire  [11:0]  v_addrl5; 
wire  [11:0]  v_addrl6; 
wire  [11:0]  v_addrl7; 
wire  [11:0]  v_addrl8; 
wire  [11:0]  v_addrl9; 
wire  [11:0]  v_addr20; 
wire  [11:0]  v_addr21; 

voterln  #(1)  we0_v ( . din (WE) ,  . dout ( v_we0 ) ) ; 

voterln  #(1)  wel_v ( . din (WE) ,  . dout ( v_wel ) ) ; 
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voterln  #(1)  we2_v ( . din (WE) ,  . dout ( v_we2 ) ) ; 

voterln  #(1)  we3_v ( . din (WE) ,  . dout ( v_we3 ) ) ; 

voterln  #(1)  we4_v ( . din (WE) ,  . dout ( v_we4 ) ) ; 

voterln  #(1)  we5_v ( . din (WE) ,  . dout ( v_we5 ) ) ; 

voterln  #(1)  we6_v ( . din (WE) ,  . dout ( v_we6 ) ) ; 

voterln  #(1)  we7_v ( . din (WE) ,  . dout ( v_we7 ) ) ; 

voterln  #(1)  we8_v ( . din (WE) ,  . dout ( v_we8 ) ) ; 

voterln  #(1)  we9_v ( . din (WE) ,  . dout ( v_we9 ) ) ; 

voterln  #(1)  welO_v ( . din (WE) ,  . dout (v_wel 0 ) ) ; 

voterln  #(1)  well_v ( . din (WE) ,  . dout (v_wel 1 ) ) ; 

voterln  #(1)  wel2_v ( . din (WE ) ,  . dout (v_wel2 ) ) ; 

voterln  #(1)  wel3_v ( . din (WE ) ,  . dout (v_wel 3 ) ) ; 

voterln  #(1)  wel4_v ( . din (WE) ,  . dout (v_wel 4 ) ) ; 

voterln  #(1)  wel5_v ( . din (WE) ,  . dout (v_wel 5 ) ) ; 

voterln  #(1)  wel 6_v ( . din (WE ) ,  . dout (v_wel 6 ) ) ; 

voterln  #(1)  wel7_v ( . din (WE) ,  . dout (v_wel 7 ) ) ; 

voterln  #(1)  wel8_v ( . din (WE) ,  . dout (v_wel 8 ) ) ; 

voterln  #(1)  wel 9_v ( . din (WE ) ,  . dout (v_wel 9 ) ) ; 

voterln  #(1)  we20_v ( . din (WE) ,  . dout (v_we2 0 ) ) ; 

voterln  #(1)  we21_v ( . din (WE) ,  . dout (v_we2 1 ) ) ; 

voterln  #(12)  addrO_v ( . din ( { ADDR [ 44 ; 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrO) ) ; 

voterln  #(12)  addrl_v ( . din ( { ADDR [ 44 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
■dout (v_addrl) ) ; 

voterln  #(12)  addr2_v ( . din ( { ADDR [ 44 ; 33 ] ,  ADDR[28:17],  ADDR [ 12 ; 1 ] } ) , 

.  dout (v_addr2 ) ) ; 

voterln  #(12)  addr3_v ( . din ( { ADDR [ 44 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
■dout (v_addr3) ) ; 

voterln  #(12)  addr4_v ( . din ( { ADDR [ 44 ; 33 ] ,  ADDR[28:17],  ADDR [ 12 ; 1 ] } ) , 

.  dout (v_addr4 ) ) ; 

voterln  #(12)  addr5_v ( . din ( { ADDR [ 44 ; 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
■dout (v_addr5) ) ; 

voterln  #(12)  addr 6_v ( . din ( { ADDR [ 44 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addr6) ) ; 

voterln  #(12)  addr7_v ( . din ( { ADDR [ 44 : 33 ] ,  ADDR[28:17],  ADDR [ 12 ; 1 ] } ) , 
.dout (v_addr7) ) ; 

voterln  #(12)  addr8_v ( . din ( { ADDR [ 44 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 

.  dout (v_addr8 ) ) ; 

voterln  #(12)  addr 9_v ( . din ( { ADDR [ 44 ; 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addr9) ) ; 

voterln  #(12)  addrl 0_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrlO) ) ; 

voterln  #(12)  addrl l_v ( . din ( { ADDR [ 4 4 ; 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.  dout ( v_addr 1 1 ) ) ; 

voterln  #(12)  addrl2_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrl2) ) ; 

voterln  #(12)  addrl 3_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrl3) ) ; 

voterln  #(12)  addrl 4_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrl4) ) ; 

voterln  #(12)  addrl 5_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrl5) ) ; 

voterln  #(12)  addrl 6_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrl6) ) ; 

voterln  #(12)  addrl 7_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 ; 1 ] } ) , 
.  dout ( v_addr 1 7 ) ) ; 

voterln  #(12)  addrl 8_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrl8) ) ; 

voterln  #(12)  addrl 9_v ( . din ( { ADDR [ 4 4 ; 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
.dout (v_addrl9) ) ; 
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voterln  #(12)  addr2 0_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 ; 1 ] } ) , 
.dout (v_addr2  0) )  ; 

voterln  #(12)  addr2 l_v ( . din ( { ADDR [ 4 4 : 33 ] ,  ADDR[28:17],  ADDR [ 12 : 1 ] } ) , 
■dout (v_addr21) ) ; 

voterln  #(22)  din_v ( . din ( DIN) ,  . dout (v_din) ) ; 

RAMB4_S1  ramO ( .WE (v_weO) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 

.ADDR (v_addrO) ,  . DI (v_din [ 0 ] ) ,  . DO ( DOUT [ 0 ] ) ) ; 

RAMB4_S1  rami ( .WE (v_wel) ,  .EN(logicl),  . RST (logicO )  ,  .CLK(CLK), 
.ADDR(v_addrl) ,  . DI (v_din [ 1 ] ) ,  . DO ( DOUT [ 1 ] ) ) ; 

RAMB4_S1  ram2 ( .WE (v_we2) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR(v_addr2) ,  . DI (v_din [2 ] ) ,  . DO (DOUT [2 ] ) ) ; 

RAMB4_S1  ram3 ( .WE (v_we3) ,  .EN(logicl),  . RST (logicO )  ,  .CLK(CLK), 

.ADDR (v_addr3) ,  . DI (v_din [ 3 ] ) ,  . DO ( DOUT [ 3 ] )  )  ; 

RAMB4_S1  ram4 ( .WE (v_we4) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR(v_addr4) ,  . DI (v_din [ 4 ] ) ,  . DO ( DOUT [ 4 ] ) ) ; 

RAMB4_S1  ram5 ( .WE (v_we5) ,  .EN(logicl),  . RST (logicO )  ,  .CLK(CLK), 

.ADDR (v_addr5) ,  . DI (v_din [ 5 ] ) ,  . DO ( DOUT [ 5 ] )  )  ; 

RAMB4_S1  ram6 ( .WE (v_we6) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 

.ADDR (v_addr6) ,  . DI (v_din [ 6 ] ) ,  . DO ( DOUT [ 6 ] ) ) ; 

RAMB4_S1  ram7 ( .WE (v_we7) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR(v_addr7) ,  . DI (v_din [ 7 ] ) ,  . DO ( DOUT [ 7 ] ) ) ; 

RAMB4_S1  ram8 ( .WE (v_we8) ,  .EN(logicl),  . RST (logicO )  ,  .CLK(CLK), 
.ADDR(v_addr8) ,  . DI (v_din [ 8 ] ) ,  . DO ( DOUT [ 8 ] ) ) ; 

RAMB4_S1  ram9 ( .WE (v_we9) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 

.ADDR (v_addr9) ,  . DI (v_din [ 9 ] ) ,  . DO ( DOUT [ 9 ] ) ) ; 

RAMB4_S1  ramlO ( .WE (v_welO) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrlO) ,  . DI (v_din [ 10 ] ) ,  . DO ( DOUT [ 1 0 ] ) ) ; 

RAMB4_S1  ramll ( .WE (v_well) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrll) ,  . DI (v_din [ 11 ] ) ,  . DO ( DOUT [ 1 1 ] ) ) ; 

RAMB4_S1  raml2 ( .WE (v_wel2) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrl2) ,  . DI ( v_din [ 12 ] ) ,  . DO  ( DOUT [ 12 ]  ) )  ; 

RAMB4_S1  raml3 ( .WE (v_wel3) ,  .EN(logicl),  . RST (logicO )  ,  .CLK(CLK), 
.ADDR (v_addrl3) ,  . DI (v_din [ 13 ] ) ,  . DO ( DOUT [ 1 3 ] ) ) ; 

RAMB4_S1  raml4 ( .WE (v_wel4) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrl4) ,  . DI (v_din [ 14 ] ) ,  . DO ( DOUT [ 1 4 ] ) ) ; 

RAMB4_S1  raml5 ( .WE (v_wel5) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrl5) ,  . DI (v_din [ 15 ] ) ,  . DO ( DOUT [ 1 5 ]  ) )  ; 

RAMB4_S1  ramie ( .WE (v_wel6) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrl6) ,  . DI ( v_din [ 1 6 ] ) ,  . DO ( DOUT [ 1 6 ] ) ) ; 

RAMB4_S1  raml7 ( .WE (v_wel7) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrl7) ,  . DI (v_din [ 17 ] ) ,  . DO ( DOUT [ 1 7 ]  ) )  ; 

RAMB4_S1  raml8 ( .WE (v_wel8) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrl8) ,  . DI (v_din [ 18 ] ) ,  . DO ( DOUT [ 1 8 ] ) ) ; 

RAMB4_S1  raml9 ( .WE (v_wel9) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addrl9) ,  . DI ( v_din [ 1 9 ] ) ,  . DO ( DOUT [ 1 9 ] ) ) ; 

RAMB4_S1  ram20 ( .WE (v_we20) ,  .EN(logicl),  . RST (logicO ) ,  .CLK(CLK), 
.ADDR (v_addr20) ,  . DI ( v_din [ 20 ] ) ,  . DO (DOUT [20]  )  )  ; 

RAMB4_S1  ram21 ( .WE (v_we21) ,  .EN(logicl),  . RST  (logicO ) ,  .CLK(CLK), 
.ADDR (v_addr21) ,  . DI (v_din [21 ] ) ,  . DO ( DOUT [2 1 ] ) ) ; 

'include  "bits.v" 
endmodule 

module  decodes (din,  dout) ; 

input  [4:0]  din; 

output  [21:0]  dout; 

reg  [21:0]  dout; 

always  @ (din)  begin 
case  (din) 
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5  'hO 
5  'hi 
5  'h2 
5  'h3 
5  'h4 
5  'h5 
5  'h6 
5  'h7 
5  'h8 
5  'h9 
5  'hA 
5  'hB 
5  'hC 
5  'hD 
5  'hE 
5  'hF 
5  'hlO 
5  'hll 
5  'hl2 
5  'hl3 
5  'hl4 
5  'hl5 
5  'hl6 
5  'hl7 
5  'hl8 
5  'hl9 
5  'hlA 
5  'hlB 
5  'hlC 
5  'hlD 
5  'hlE 
5  'hlF 

endcase 

end 

endmodule 


dout 

<  = 

22  ' 

hOOOOOO; 

dout 

<- 

22  ' 

hOOOOOO; 

dout 

<- 

22  ' 

hOOOOOO; 

dout 

<- 

22  ' 

hOOOOOl; 

dout 

<- 

22  ' 

hOOOOOO; 

dout 

<- 

22  ' 

h000002; 

dout 

<- 

22  ' 

h000004; 

dout 

<- 

22  ' 

h000008; 

dout 

<- 

22  ' 

hOOOOOO; 

dout 

<- 

Csl 

Csl 

hOOOOlO; 

dout 

<- 

22  ' 

h000020; 

dout 

<- 

22  ' 

h000040; 

dout 

<- 

22  ' 

h000080; 

dout 

<- 

Csl 

Csl 

hOOOlOO; 

dout 

<- 

Csl 

Csl 

h000200; 

dout 

<- 

22  ' 

h000400; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'h000800; 

dout 

<- 

^  22 

'hOOlOOO; 

dout 

<- 

^  22 

'h002000; 

dout 

<- 

^  22 

'h004000; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

dout 

<- 

^  22 

'hOOOOOO; 

default 

:  dout  <=  22'hOOOOOO 

module  eccencode (din,  dout) ; 
input  [15:0]  din; 
output  [21:0]  dout; 


assign  dout[15:0]  =  din[15:0]; 
//  check  group  1 


assign  dout [16]  = 

din  [0 

]  din[l] 

din  [3] 

din  [4] 

din  [6] 

din  [8 

din  [10 

]  ^  din[ll]  ^  din[13]  ^ 

din [15]  ; 

//  check  group  2 
assign  dout [17]  = 

din  [0 

]  ^  din [2] 

''  din  [3] 

din  [5] 

din  [6] 

din  [9 

din  [10 

]  ^  din  [12]  din  [13]  ; 

//  check  group  4 
assign  dout [18]  = 

din  [1 

]  ^  din [2] 

^  din [3] 

^  din [7] 

^  din  [8] 

^  din  [9 

din  [10]  ^  din  [14]  din  [15]  ; 

//  check  group  8 

assign  dout[19]  =  ^din[10:4]; 

//  check  group  16 

assign  dout[20]  =  "'din  [15  : 11]  ; 

//  overall  check 

//assign  dout[21]  =  (^din[15:0])  ^  ( ^dout [2 0  : 1 6  ]  )  ; 
assign  dout [21]  =  I'bO; 

endmodule 

module  eccdecode (din,  dout,  syndrome); 
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input  [21:0]  din; 
output  [15:0]  dout; 
output  [5:0]  syndrome; 


wire  [5:0]  syndrome; 
wire  [21:0]  correct; 

//  check  group  1 


assign  syndrome [0]  = 

din  [16]  ^ 

din[0] 

^  din[l] 

^  din [3] 

^  din  [4] 

^  din  [6 

din[8]  din[10]  ^  din[ll 

]  ^  din[13 

]  ^  din 

[15]  ; 

//  check  group  2 
assign  syndrome [1]  = 

din[17]  ^ 

din[0] 

^  din[2] 

^  din [3] 

^  din [5] 

^  din  [6 

din[9]  ^  din[10]  ^  din[12 

]  ^  din[13 

]  ; 

//  check  group  4 
assign  syndrome [2]  = 

din[18]  ^ 

din[l] 

^  din[2] 

^  din [3] 

^  din  [7] 

^  din  [8 

^  din [9]  ^  din [10]  ^  din [14]  ^  din[15]; 

//  check  group  8 

assign  syndrome[3]  =  din[19]  ''  ( ^din  [  10  :  4  ]  )  ; 

//  check  group  16 

assign  syndrome[4]  =  din[20]  ^  ( ^din [ 15 : 1 1 ] ) ; 

assign  syndrome [5]  =  ^din; 

decode5  eccdecode ( . din ( syndrome [4:0]),. dout (correct) ) ; 
assign  dout  =  din  [15:0]  ''  correct  [  1 5  :  0  ]  ; 
endmodule 


C.  BRAM  ECC.V 

'timescale  Ins  /  Ips 
'include  "voterids.v" 

module  bram_ecc (elk,  rst,  sub,  sib,  rub,  uxd_t,  lxd_t,  memdta, 
mem_addr,  we,  d,  xd,  errorbus,  addr_nxt,  mem_ce) ; 


input 

input 

input 

[2:0] 

elk 

rst 

sub; 

input 

[2:0] 

sib; 

input 

[2:0] 

rub  ; 

input 

[2:0] 

uxd  t; 

input 

[2:0] 

Ixd  t; 

input 

[47:0] 

memdta; 

output 

[47:0] 

mem  addr; 

input 

[2:0] 

we; 

inout 

[47:0] 

d; 

output 

[47:0] 

xd; 

input 

[47:0] 

addr  nxt; 

input 

[2:0] 

mem  ce; 

inout 

[15:0] 

errorbus ; 

wire 

[17:0] 

syndrome; 

wor 

[15:0] 

errorbus ; 

wire 

[65:0] 

ecedin; 

wire 

[21:0] 

eccdout; 

tri 

[47:0] 

d; 

wire 

[47:0] 

mem  out; 
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reg  [47:0]  xa; 

wire  [15:0]  v_addr_nxtO ,  v_addr_nxtl,  v_addr_nxt2 ; 

wire  aerror  nxt,  berror  nxt,  cerror  nxt; 

reg  aerror,  berror,  cerror; 


voterlnsyn  #(16)  addr_nxt_vO  ( . din (addr_nxt) ,  . dout ( v_addr_nxtO ) , 

.  errorbus  (errorbus )  ,  .clk;(clk;),  .rst(rst),  .  ID  (  {  '  BRAM_ADDR_NXTO_V}  )  )  ; 

voterlnsyn  #(16)  addr_nxt_vl  ( . din (addr_nxt) ,  . dout ( v_addr_nxtl ) , 

. errorbus (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' BRAM_ADDR_NXT1_V} ) ) ; 

voterlnsyn  #(16)  addr_nxt_v2  ( . din (addr_nxt) ,  . dout ( v_addr_nxt2 ) , 

. errorbus (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' BRAM_ADDR_NXT2_V} ) ) ; 

assign  mein_addr  [  1 5  :  0  ]  =  mein_ce[0]  ?  addr_nxt  [  15  :  0  ]  :  xa[15:0]; 

assign  mem_addr [ 3 1 : 1 6 ]  =  mem_ce[l]  ?  addr_nxt [ 31 : 1 6 ]  :  xa [31:16 ]; 
assign  mem_addr [ 4 7 : 32 ]  =  mem_ce[2]  ?  addr_nxt [ 4 7 : 32 ]  :  xa [47:32 ]; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 
xa  <=  0 ; 

end 

else  begin 

if  (mein_ce[0])  begin 

xa[15:0]  <=  v_addr_nxtO ; 

end 

if  (mein_ce[l])  begin 

xa[31:16]  <=  v_addr_nxtl ; 

end 

if  (mem_ce[2])  begin 

xa[47:32]  <=  v_addr_nxt2 ; 

end 

end 

end 

//  code  lifted  from  voter  module 
assign  aerror_nxt=  | ( syndrome [ 5 : 0 ]) ; 
assign  berror_nxt=  | ( syndrome [ 1 1 : 6 ]) ; 
assign  cerror_nxt=  | ( syndrome [ 1 7 : 12 ]) ; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

aerror  <=  0; 
berror  <=  0; 
cerror  <=  0; 

end 

else  begin 

aerror<=  aerror_nxt; 
berror<=  berror  nxt; 
cerror<=  cerror_nxt; 

end 

end 

assign  errorbus [ 1 4 : 5 ]  =  ((aerror)  |  (berror)  |  (cerror))  ? 
'BRAM_SYNDROME_ERR  :  10 'dO; 

assign  errorbus [4 : 3]  =  2'dO; 

assign  errorbus [2 : 0 ]  =  ((aerror)  |  (berror)  |  (cerror))  ? 

[  (cerror) ,  (berror ),  (aerror)  }  :  3'dO; 

//  collision  detect 

assign  errorbus [15]  =  ((aerror)  |  (berror)  |  (cerror))  ? 

( (errorbus [14:0]== 

( { ' BRAM_SYNDROME_ERR,  2 ' dO,  (cerror)  ,  (berror) ,  (aerror) } )  )  ? 

I'bO  :  I'bl)  :  I'bO; 
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memio  memiol  ( . sub  ( sub [ 0 ] ) ,  . sib  ( sib [ 0 ] ) ,  . rub  ( rub [ 0 ] ) , 

. din (memdta [15 : 0] ) ,  . eccdout (eccdout) ,  .mem_out (mein_out [15 : 0] ) , 

. xd (xd [ 15 : 0 ] ) ,  . eccdin (eccdin [21:0]),  . syndrome (syndrome [5:0])); 


memio  memio2  ( . sub  ( sub [ 1 ] ) ,  . sib  ( sib [ 1 ] ) ,  . rub  ( rub [ 1 ] ) , 

. din (memdta [31:16]),  . eccdout (eccdout) ,  .mem_out (mem_out [31:16]), 

. xd (xd [31 : 1 6] ) ,  . eccdin (eccdin [43:22] ) , 

.  syndrome (syndrome [11:6])); 

memio  memio3  ( . sub  ( sub [ 2 ] ) ,  . sib  ( sib [ 2 ] ) ,  . rub  ( rub [ 2 ] ) , 

. din (memdta [47:32]),  . eccdout (eccdout) ,  .mem_out (mem_out [47:32]), 

. xd (xd [ 47 : 32 ] ) ,  . eccdin (eccdin [65:44]), 

.  syndrome (syndrome [17:12] ) ) ; 


bram4k;x22  meml  (.CLK(clk;),  .WE  (we),  .  ADDR  (mem_addr)  , 

. DIN (eccdin) ,  . DOUT (eccdout)); 


assign 

assign 

assign 

assign 

assign 

assign 


d[7:0]  = 

d[15:8] 

d[23:16] 

d[31 :24] 

d[39:32] 

d[47:40] 


lxd_t[0]  ? 

^  uxd_t [ 0 ]  ? 

=  lxd_t[l] 

=  uxd_t[l] 

=  lxd_t[2] 

=  uxd_t [2 ] 


8 ' bz :  mem_out [7:0] ; 

8'bz:  mem_out [15: 8] ; 

?  8'bz:  mem_out [ 23 : 1 6 ] ; 
?  8'bz:  mem_out [ 31 : 2 4 ] ; 
?  8'bz:  mem_out [39 : 32 ]  ; 
?  8'bz:  mem_out [47:40]; 


endmodule 


D,  CLOCKDIV.V 


//  module  to  derive  a  ~20Mhz  system  clock  from  the  51Mhz  PC/104  clock 
'timescale  Ins  /  Ips 

module  clock_div (ACLK,  CLKDIV,  RST) ; 
input  ACLK; 
input  RST; 
output  CLKDIV; 


IBUFG  CLK_ibufg_A  (.1  (ACLK),  . 0 (ACLK_ibufg) ) ; 

BUFG  DIVCLK_bufg  (.1  (ACLK_div2 ) ,  .0  (CLKDIV)); 

BUFG  ACLK_FB  (.1  (ACLK_0),  .0  (ACLK_feedback) ) ; 

CLKDLL  ACLK_dll_div  //  /2.5  clock 
(  . CLKIN (ACLK_ibuf g) , 

.CLKFB (ACLK_feedback)  , 

.RST (RST) , 

.CLK2X ( )  , 

.CLKO (ACLK_0) , 

.CLK90 ( ) , 

.CLK180  0  , 

.CLK270  0  , 

. CLKDV (ACLK_div2 )  , 

.LOCKED  0 

)  ; 


defparam  ACLK_dll_div . CLKDV_DIVIDE=2 . 5; 
endmodule 
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E, 


CTRL.V 


/*  ctrl.v  --  xrl6  control  unit  synthesizable  Verilog  model 

■k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

•k 

*  $Header:  /dist/xsocv/ctrl . v  8  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/ctrl .V  $ 

•k 

*  8  4/06/00  10:55a  Jan 

*  polish 
*/ 

/*  last  modified  by  David  Dwiggins,  24  August  2008.  Adapted  to  use 

*  TMR/ECC  functionality  for  fault-tolerance.  Also  adapted  to  reload  each 
register 

*  each  clock  cycle  */ 

//  original  code  by  Jan  Gray  included  at  end  of  file 

'timescale  ins  /  Ips 
'include  "voterids.v" 

//  Instruction  fields,  ref.:  The  xrl6  Specifications  (doc/xspecs . pdf ) . 


//  Opcodes  (IR[15:12]) 


' define 

ADD 

4  'hO 

' define 

SUB 

4  'hi 

' define 

ADDI 

4  'h2 

' define 

RR 

4  'h3 

' define 

RI 

4  'h4 

' define 

LW 

4  'h5 

' define 

LB 

4  'h6 

' define 

SW 

4  'h8 

' define 

SB 

4  'h9 

' define 

JAL 

4  'hA 

' define 

Bcond  4  '  hB 

' define 

CALL 

4  'hC 

' define 

IMM 

4  'hD 

//  Functions 

(IR[7: 

:4]  ) 

' define 

AND 

4  'hO 

' define 

OR 

4  'hi 

' define 

XOR 

4  'h2 

' define 

ANDN 

4  'h3 

' define 

ADC 

4  'h4 

' define 

SBC 

4  'h5 

' define 

SRL 

4  'h6 

' define 

SRA 

4  'h7 

' define 

SLL 

4  'h8 

//  Conditional  branches 

(IR[11:8 

' define 

BR 

4  'hO 

' define 

BRN 

4  'hi 

' define 

BEQ 

4  'h2 

' define 

BNE 

4  'h3 

' define 

BC 

4  'h4 

' define 

BNC 

4  'h5 

' define 

BV 

4  'h6 

' define 

BNV 

4  'h7 
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' define 

BLT 

4  'h8 

' define 

BGE 

4  'h9 

' define 

BLE 

4  'hA 

' define 

BGT 

4  'hB 

' define 

BLTU 

4  'hC 

' define 

BGEU 

4  'hD 

' define 

BLEU 

4  'hE 

' define 

BGTU 

4  'hF 

' define 

INT 

16'hAE01 

module  ^ 

control ( 

//  int 


jal  rl4, 10 (rO) 


elk,  rst,  rdy,  int_req,  dma_req,  zerodma,  insn,  al5,  z,  n,  co,  v, 
mein_ce,  word_nxt,  read_nxt,  dbus_nxt,  dma, 
rf  we,  rna,  rnb,  rdest, 

fwd,  imm,  sextimm4,  zextimm4,  wordimm4,  imml2,  pipe_ce,  bl5_4_ce, 
add,  ci,  logicop,  sri, 

sum_t,  logic_t,  shl_t,  shr_t,  zeroext_t,  ret_t, 

branch,  brdisp,  selpc,  zeropc,  dmape,  pc_ce,  ret_ce, 

in_add,  out_add,  in_ci,  out_ci,  in_branch,  out_branch, 

in_sum_t,  out_sum_t,  in_logic_t,  out_logic_t,  in_shl_t,  out_shl_t, 

out_shr_t,  in_zeroext_t,  out_zeroext_t,  in_ret_t,  out_ret_t, 
out  if  ir,  in  ir,  out  ir,  in  ex  ir,  out  ex  ir,  in  ex  call. 


in_shr_t, 
in_if_ir , 
out_ex_call, 

in  ex  St, 


out  ex  St,  in  ifetch,  out  ifetch,  in_dma,  out  dma. 


in_sync_reset,  out_sync_reset. 


in  dc  annul,  out 

dc  annul. 

in  ex 

annul,  out 

ex  annul,  in  int  pend. 

out  int  pend. 

in  dc  int,  out  dc 

int,  in 

dma  pend,  out  dma 

pend,  in  zero  pend. 

out  zero  pend. 

inum,  errorbus); 

parameter 

W 

= 

16; 

//  data  word  width 

parameter 

N 

- 

W-1, 

:  //  msb  index 

parameter 

IW 

- 

16; 

//  instruction  word  width 

parameter 

IN 

15; 

//  instruction  word  msb  index 

//  ports 
input 

elk; 

//  global 

clock 

input 

rst; 

//  global 

async  reset 

input 

[2:0] 

rdy; 

// 

current  memory  access  is  ready 

input 

int  req; 

/ /  interrupt  request 

input 

dma  req; 

//  DMA  request 

input 

zerodma ; 

//  zero  DMA  counter 

request 

input 

[15:0] 

insn; 

// 

new  instruction  word 

input 

al5; 

//  A  operand  msb 

input 

z; ; 

//  zero  result 

condition  code 

input 

n; 

//  negative  result 

condition  code 

input 

co; 

/ /  carry-out  result 

codition  code 

input 

v; 

//  overflow  result 

condition  code 

input 

[2:0] 

in 

add 

,  in  ci,  in 

branch,  in  sum  t,  in  logic  t; 

input 

[2:0] 

in 

shl 

t,  in  shr 

t,  in  zeroext  t,  in  ret  t; 

input 

[47:0] 

in  if 

ir,  in  ir. 

in  ex  ir; 

input 

[2:0] 

in 

ex 

call,  in  ex 

St,  in  ifetch,  in  dma. 

in  sync  reset; 

input 

[2:0] 

in 

dc 

annul,  in  ex  annul,  in  int  pend. 
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input 
input 
output 
output 
output 
output 
output 
output 
output  [3:0] 
output  [3:0] 
output  [3: 
output 
register 


[2:0]  in_zero_pend; 
[1:0]  inum; 
mem  ce; 


word_nxt; 
read_nxt; 
dbus_nxt; 
dma; 
r  f  we ; 


//  memory  access  clock  enable 
//  next  access  is  word  wide 
//  next  access  is  read 
//  next  access  uses  on-chip  data  bus 
//  current  access  is  a  DMA  transfer 
//  register  file  write  enable 
rna;  //  register  file  port  A  register  number 

rnb;  //  register  file  port  B  register  number 

0]  rdest;  //  register  file  write  number 

fwd;  //  forward  result  bus  into  A  operand 


immediate  field 

sign-extend  4-bit  immediate  operand 
zero-extend  4-bit  immediate  operand 
word-offset  4-bit  immediate  operand 
12-bit  immediate  operand 
pipeline  clock  enable 
b[15:4]  clock  enable 
1  =>  A  +  B;  0  =>  A  -  B 
/ /  carry-in 
jnit  opcode 
shift  right  msb  input 
active  low  adder  output  enable 
active  low  logic  unit  output  enable 
active  low  shift  left  output  enable 
active  low  shift  right  output  enable 
active  low  zero-extension  output 


enable 


enable 


output 

[11:0] 

imm;  // 

12-bit 

output 

sextimm4 ; 

// 

output 

zextimm4 ; 

// 

output 

wordimm4 ; 

// 

output 

imml2 ; 

// 

output 

pipe  ce; 

// 

output 

bl5_4_ce; 

// 

output 

add; 

// 

output 

ci; 

output 

[1:0] 

logicop;  // 

logic  i 

output 

sri  ; 

// 

output 

sum  t; 

// 

output 

logic  t; 

// 

output 

shl  t; 

// 

output 

shr  t; 

// 

output 

zeroext  t 

;  // 

output 

ret  t; 

// 

output 

branch; 

output 

[7:0] 

brdisp; 

// 

output 

selpc; 

// 

output 

zeropc; 

output 

dmapc ; 

// 

output 

pc  ce; 

// 

output 

ret  ce; 

output 

out  add. 

out  ci. 

output 

out  shl  t 

,  out  s! 

output 

[15:0]  out  if  ir 

output 

out  ex  call,  out 

//  active  low  return  address  output 


//  branch  taken 
8-bit  branch  displacement 
address  mux  selects  next  PC 
//  force  next  PC  to  0 
use  DMA  register  in  PC  register  file 
PC  clock  enable 

//  return  address  clock  enable 
out_branch,  out_sum_t,  out_logic_t; 
hr_t,  out_zeroext_t,  out_ret_t; 

,  out  ir,  out  ex  ir; 


out_sync_reset  ; 

output 

out_dma_pend; 

output 

inout 


out_dc_annul,  out_ex_annul,  out_int_pend,  out_dc_int, 

out_zero_pend; 

[15:0]  errorbus; 


reg 

reg 


ret  t; 


add,  ci,  branch; 

sum_t,  logic_t,  shl_t,  shr_t,  zeroext_t. 


//  locals 


reg 

o 

1— 1 

if  ir , 

ir ,  ex  ir ;  // 

instruction  registers 

//  IR  fields 
wire  [3:0] 

op 

=  ir[15:12 

:];  // 

opcode 

wire 

[3:0] 

rd 

=  ir[ll:8] 

; 

//  destination  register 

wire 

[3:0] 

ra 

=  ir [7 : 4]  ; 

/ /  source  register 

A 

wire 

[3:0] 

rb 

=  ir[3:0]  ; 

/ /  source  register 

B 

wire 

[3:0] 

cond 

=  ir[ll:8]  ; 

// 

branch  condition 
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//  rr  or  ri  function  sub¬ 


wire  [3:0]  fn 

opcode 

wire  [3:0]  ex_op 

wire  [3:0]  ex_rd 

wire  [3:0]  ex_fn 

wire  v_rdy; 


=  ir [7 : 4]  ; 

=  ex_ir [ 1 5  : 12  ]  ;  //  EX 

=  ex_ir [ 1 1 :  8 ]  ;  //  EX 

=  ex_ir [7 : 4 ] ; //  EX  stage 


stage  opcode 

stage  destination  register 
function  sub-opcode 


wire 

wire 

wire 

wire 

wire 

v_dma_pend; 

wire 


v_add,  v_ci,  v_branch,  v_sum_t,  v_logic_t; 
v_shl_t,  v_shr_t,  v_zeroext_t,  v_ret_t; 

[15:0]  v_if_ir,  v_ir,  v  ex_ir; 

v_ex_call,  v_ex_st,  v_ifetch,  v_dma,  v_sync_reset; 
v_dc_annul,  v_ex_annul,  v_int_pend,  v_dc_int, 

V  zero_pend; 


wor  [15:0]  errorbus; 


voterlnsyn  #(1)  rdy_v  (.din(rdy),  . dout (v_rdy ) ,  . errorbus  (errorbus ) , 

.clk(clk),  .rst(rst),  . ID ( { ' CO_RDY_V} ) ) ; 

voterlnsyn  #(1)  add_v  ( . din (in_add) ,  . dout ( v_add) , 

.errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_ADD_V} ) ) ; 

voterlnsyn  #(1)  ci_v  ( . din ( in_ci ) ,  .dout(v_ci),  . errorbus  (errorbus ) , 

.clk(clk),  .rst(rst),  . ID ( { ' CO_CI_V} ) ) ; 

voterlnsyn  #(1)  branch_v  ( . din ( in_branch) ,  . dout (v_branch) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_BRANCH_V} ) ) ; 

voterlnsyn  #(1)  sum_t_v  ( . din (in_sum_t) ,  . dout (v_sum_t) , 

.errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_SUM_T_V} ) ) ; 

voterlnsyn  #(1)  logic_t_v  ( . din (in_logic_t) ,  . dout (v_logic_t) , 

.errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_LOGIC_T_V} ) ) ; 

voterlnsyn  #(1)  shl_t_v  ( . din (in_shl_t) ,  . dout (v_shl_t) , 

.errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_SHL_T_V} ) ) ; 

voterlnsyn  #(1)  shr_t_v  ( . din (in_shr_t) ,  . dout (v_shr_t) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_SHR_T_V} ) ) ; 

voterlnsyn  #(1)  zeroext_t_v  ( . din (in_zeroext_t) ,  . dout (v_zeroext_t) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_ZEROEXT_T_V} ) ) ; 

voterlnsyn  #(1)  ret_t_v  ( . din (in_ret_t) ,  . dout (v_ret_t) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_RET_T_V} ) ) ; 

voterlnsyn  #(16)  if_ir_v  ( . din (in_if_ir ) ,  . dout (v_if_ir ) , 

.errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_IF_IR_V} ) ) ; 

voterlnsyn  #(16)  ir_v  ( . din (in_ir) ,  .dout(v_ir),  . errorbus  (errorbus ) , 
.clk(clk),  .rst(rst),  . ID ( { ' CO_IR_V} ) ) ; 

voterlnsyn  #(16)  ex_ir_v  ( . din ( in_ex_ir ) ,  .dout(v  ex  ir) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_EX_IR_V} ) ) ; 

voterlnsyn  #(1)  ex_call_v  ( . din (in_ex_call ) ,  . dout ( v_ex_call ) , 

.errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  . I D ( { ' CO_EX_CALL_V } ) ) ; 

voterlnsyn  #(1)  ex_st_v  ( . din (in_ex_st) ,  . dout (v_ex_st) , 

.errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_EX_ST_V} ) ) ; 

voterlnsyn  #(1)  ifetch_v  ( . din (in_ifetch) ,  . dout (v_ifetch) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_IFETCH_V} ) ) ; 

voterlnsyn  #(1)  dina_v  (  .  din  (in_dma)  ,  .  dout  (v_dina)  , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_DMA_V} ) ) ; 

voterlnsyn  #(1)  sync_reset_v  ( . din (in_sync_reset) , 

.  dout (v_sync_reset) ,  . errorbus (errorbus ) ,  .clk(clk),  .rst(rst), 

.  ID  ( {  'CO_SYNC_RESET_V} )  )  ; 

voterlnsyn  #(1)  dc_annul_v  ( . din ( in_dc_annul ) ,  . dout ( v_dc_annul ) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_DC_ANNUL_V} ) ) ; 

voterlnsyn  #(1)  ex_annul_v  ( . din ( in_ex_annul ) ,  . dout ( v_ex_annul ) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_EX_ANNUL_V} ) ) ; 

voterlnsyn  #(1)  int_pend_v  ( . din ( in_int_pend) ,  . dout ( v_int_pend) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_INT_PEND_V} ) ) ; 
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voterlnsyn  #(1)  dc_int_v  ( . din (in_dc_int) ,  . dout ( v_dc_int ) , 

.errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_DC_INT_V} ) ) ; 

voterlnsyn  #(1)  dma_pend_v  ( . din ( in_dina_pend) ,  . dout ( v_dma_pend) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_DMA_PEND_V} ) ) ; 

voterlnsyn  #(1)  zero_pend_v  ( . din (in_zero_pend) ,  . dout ( v_zero_pend) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { ' CO_ZERO_PEND_V} ) ) ; 

assign  errorbus  =  16 'bO; 


assign  imm  =  ir[ll:0];  //  12-bit  immediate  field 

assign  brdisp  =  ex_ir[7:0];  //  8-bit  branch  displacement 


//  IF  stage  instruction  decoding 


assign  imml2  = 
assign  sextimm4 
assign  zextimm4 
assign  wordimm4 
wire  addsub 
wire  call 
wire  St 
wire  rrri 
wire  adcsbc 
wire  dcintinh  = 

wire  sub 


op=='CALL  I  I  op=='IMM; 

=  op=='ADDI  I  I  op=='RI; 

=  op=='LB  I  I  op=='SB; 

=  op=='LW  I  I  op=='SW  I  I  op=='JAL; 

=  op=='ADD  I  I  op=='SUB  I  I  op=='ADDI; 

=  op=='CALL; 

=  op=='SW  I  I  op=='SB; 

=  op=='RR  II  op  ==  'RI; 

=  rrri  &&  (fn=='ADC  | |  fn=='SBC); 
op=='ADD  I  I  op=='SUB  I  I  op=='ADDI  |  |  op=='Bcond  |  | 
op=='CALL  I  I  op=='IMM  I  I  adcsbc; 

=  op=='SUB  II  (rrri  &&  (fn=='SBC)); 


//  EX  stage  decoding 

wire  ex_ldst  =  ex_op=='LW  |  |  ex_op=='LB  |  |  ex_op=='SW  |  |  ex_op=='SB; 
wire  ex_lbsb  =  ex_op=='LB  | |  ex_op=='SB; 

wire  ex_results  =  ex_op=='ADD  | |  ex_op=='SUB  | |  ex_op=='ADDI  | | 

ex_op=='RR  I  I  ex_op=='RI  |  | 

ex_op=='LW  I  I  ex_op=='LB  |  |  ex_op=='JAL  |  | 

ex_op== ' CALL; 

wire  ex_jump  =  (ex_op=='JAL  | |  ex_op== ' CALL) ; 

reg  ex_call;  //  EX  stage  call 

reg  ex_st;  //  EX  stage  store 


//  memory  access  FSM  states  --  each  access  is  an  instruction  fetch, 

//  unless  DMA  or  load/store  is  pending 

reg  ifetch;  //  "current  access  is  insn  fetch" 

reg  dma;  //  "current  access  is  DMA" 

//  "current  access  is  load/store"  ::= 


~ (ifetch I dma) 

//  annul  FSM  states 

reg  sync_reset;  //  synchronous  memory  FSM  reset 
reg  dc_annul;  //  annul  DC  stage  instruction 

reg  ex_annul;  //  annul  EX  stage  instruction 


//  interrupt  state 
reg  int_pend; 
reg  dc_int;  //  DC 
wire  if  int;  //  IF 


//  interrupt  is  pending 
stage  instruction  is  int 
stage  'interrupt  in  progress' 


//  DMA  state 

reg  dma_pend;  //  DMA  is  pending 

reg  zero_pend;  //  zero  (reset)  DMA  is  pending 


//  memory  access  FSM  transitions: 
//  case  (state) 


// 

IF; 

state 

nxt  =  dma  pend  ?  DMA  : 

:  Idst 

pend 

?  LS  : 

:  IF 

// 

DMA: 

state 

nxt  = 

Idst 

pend 

?  LS  : 

:  IF 

// 

LS  : 

state 

nxt  = 

IF 
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//  endcase 

wire  ldst_pend  =  ex_ldst  &  ~ex_annul; 

wire  if_nxt  =  ifetch&~dma_pend&~ldst_pend  |  dma&~ldst_pend  | 

~ifetch&~dma; 

wire  dma_nxt  =  ifetch&dma_pend; 

wire  ldst_nxt =  ifetch&~dma_pend&ldst_pend  |  dma&ldst_pend; 

wire  jump  =  ex  jump  &&  ~ex  annul; 

wire  exannul_nxt=  sync_reset  |  branch  |  jump  |  dc_annul; 

//  FSM  output  decodes 

assign  mem_ce  =  v_rdy; 

assign  pipe_ce  =  v_rdy&if_nxt; 

assign  pc_ce  =  v_rdy& (if_nxt | dma_nxt)  ; 

assign  ret_ce =  v_rdy&if_nxt&~dc_int; 

assign  word_nxt  =  ~ (ldst_nxt&ex_lbsb) ; 

assign  read_nxt  =  ~ (ldst_nxt&ex_st) ; 

assign  dbus_nxt  =  ldst_nxt; 

assign  dmapc  =  dma_nxt; 

assign  selpc  =  if_nxt&~jump  |  dma_nxt; 

assign  zeropc =  ( zero_pend&dma_nxt)  |  sync_reset; 

assign  if_int =  int_pend&~branch&~ j ump&~dcintinh; 


//  IR  clocking 

assign  out_if_ir  =  (ifetch  &&  v_rdy)  ?  insn  :  if_ir; 

assign  out_ir  =  pipe_ce  ?  ( (if_int)  ?  ' INT  :  (ifetch)  ?  insn  :  if_ir)  : 

ir ; 

assign  out_ex_ir  =  pipe  ce  ?  ir  :  ex  ir; 

always  @ (posedge  elk  or  posedge  rst)  begin 

if  (rst)  begin 

if_ir  <=0; 
ir  <=  0; 
ex_ir  <=  0; 

end 

else  begin 

if_ir  <=  v_if_ir; 
ir  <=  v_ir; 
ex  ir  <=  V  ex  ir; 

end 

end 


//  instruction  decode  clocking 

assign  out_ex_call  =  pipe_ce  ?  call  :  ex_call; 

assign  out_ex_st  =  pipe_ce  ?  st  :  ex_st; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

ex_call  <=  0; 
ex_st  <=  0; 

end 

else  begin 

ex_call  <=  v_ex_call; 
ex  St  <=  v_ex  st; 

end 

end 

//  memory  access  FSM  clocking 

assign  out_ifetch  =  v_rdy  ?  if_nxt  :  ifetch; 
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assign  out_dma  =  v_rdy  ?  dma_nxt  :  dma; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

ifetch  <=  1; 
dma  <=  0; 

end 

else  begin 
ifetch  <=  v_ifetch; 
dma  <=  v_dma; 
end 

end 

//  annul  states  clocking 

assign  out_sync_reset  =  v_rdy  ?  I'bO  :  sync_reset; 

assign  out_dc_annul  =  pipe_ce  ?  (sync_reset  |  branch  |  jump)  :  dc_ 
assign  out_ex_annul  =  pipe_ce  ?  exannul_nxt  :  ex_annul; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

sync_reset  <=  1; 
dc_annul  <=  1; 
ex_annul  <=  1; 

end 

else  begin 

sync_reset  <=  v_sync_reset; 
dc_annul  <=  v_dc_annul; 
ex  annul  <=  v  ex  annul; 

end 

end 

//  DMA  request  clocking 

assign  out_dma_pend  =  dma_req  ?  I'bl  :  (dma  ?  I'bO  :  dma_pend) ; 
assign  out_zero_pend  =  zerodma  ?  I'bl  :  (dma  ?  I'bO  :  zero_pend) ; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

dma_pend  <=  0  ; 
zero_pend  <=  0; 

end 

else  begin 

dma_pend  <=  v_dma_pend; 
zero_pend  <=  v_zero_pend; 

end 

end 

/ /  interrupt  request  clocking 

assign  out_int_pend  =  int_req  ?  I'bl  :  ( (if_int  &&  pipe_ce)  ?  I'bO 

int_pend) ; 

assign  out_dc_int  =  pipe_ce  ?  if_int  :  dc_int; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

int_pend  <=  0; 
dc_int  <=  0; 

end 

else  begin 

int_pend  <=  v_int_pend; 
dc_int  <=  v_dc_int; 

end 

end 
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annul 


//  DC  Stage 

operand 

selection 

wire  [3:0] 

r  sre 

=  call  ?  0  :  rrri  ?  rd  :  ra; 

wire  [3:0] 

rdest 

=  ex  call  ?  15  :  ex  rd; 

//  assign 

rna 

=  elk  ?  rsrc  :  rdest; 

//  assign 

rnb 

=  elk  ?  (st  ?  rd  :  rb)  :  (ex  call  ?  15  : 

ex  rd) ; 

assign 

rna 

=  rsrc; 

assign 

rnb 

=  (st  ?  rd  :  rb) ; 

assign 

r  f  we 

=  ex  results  &  pipe  ce  &  ~ex  annul  &  (rdest  !=  0) ; 

assign 

fwd 

=  (rsrc==rdest)  &  (rdest!=0)  &&  ex  results  & 

~ex  annul; 

assign 

bl5_4_ 

ce=  pipe  ce  &&  ~ (ex  op=='IMM  &&  ~ex  annul); 

//  DC  Stage  conditional  branches 
reg  taken; 


always  @(cond  or  z  or  co  or  v  or  n)  begin 


case 

'BR: 

(cond) 

taken 

_ 

1; 

'BRN 

taken 

- 

0; 

'BEQ 

taken 

- 

z ; 

'BNE 

taken 

- 

~z  ; 

'BC: 

taken 

- 

co; 

'BNC 

taken 

~co; 

'BV: 

taken 

- 

v; 

'BNV 

taken 

- 

~v; 

'BLT 

taken 

- 

n^v; 

'BGE 

taken 

- 

-(n-v)  ; 

'BLE 

taken 

- 

(n-'v)  1  z; 

'BGT 

taken 

- 

~  (  (n^v)  1 z) 

' BLTU :  taken 

- 

~z&~co; 

' BGEU :  taken 

- 

z  1  CO  ; 

'BLEU:  taken 

- 

z  1  ~co; 

' BGTU :  taken 

= 

~z&co; 

endcase 

end 

assign  out_branch  =  pipe_ce  ?  (op=='Bcond  &&  taken  &&  ~exannul_nxt)  : 

branch; 


always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

branch  <=  0; 

else 

branch  <=  v_branch; 

end 


//  EX  stage  ALU  control 

assign  out_add  =  pipe_ce  ?  ~sub  :  add; 

assign  out_ci  =  pipe_ce  ?  (sub  ^  (adcsbc  &  co) )  :  cl; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 
add  <=  1 ; 
cl  <=  0; 

end 

else  begin 

add  <=  V  add; 
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end 


end 


ci  <=  V  ci; 


assign  logicop 
assign  sri 


=  ex_ir [5:4] ; 

=  ex  fn=='SRA  &&  al5; 


//  EX  stage  result  multiplexer  control 


assign  out_sum_t  =  pipe_ce  ?  ~ (addsub  | |  adcsbc)  :  sum_t; 
assign  out_logic_t  =  pipe_ce  ?  ~(rrri&&  (fn=='AND  | |  fn=='OR  | |  fn== 
I  I  fn=='ANDN)  )  :  logic_t; 

assign  out_zeroext_t  =  pipe_ce  ?  ~(op=='LB)  :  zeroext_t; 

assign  out_shr_t  =  pipe_ce  ?  ~(rrri  &&  (fn=='SRL  | |  fn=='SRA))  :  shr 

assign  out_shl_t  =  pipe_ce  ?  ~(rrri  &&  fn=='SLL)  :  shl_t; 

assign  out_ret_t  =  pipe_ce  ?  ~(op=='JAL  | |  op=='CALL)  :  ret_t; 


always  @ (posedge  elk  or  posedge  rst)  begin 

if  (rst)  begin 

sum_t  <=  1; 
logic_t  <=  1; 
zeroext_t  <=  1; 
shr_t  <=  1; 
shl_t  <=  1; 
ret_t  <=  1 ; 

end 

else  begin 

sum_t  <=  v_sum_t; 
logic_t  <=  v_logic_t; 
zeroext_t  <=  v_zeroext_t; 
shr_t  <=  v_shr_t; 
shl_t  <=  v_shl_t; 
ret_t  <=  v_ret_t; 

end 

end 

endmodule 


/*  ctrl.v  --  xrl6  control  unit  synthesizable  Verilog  model 

■k 
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//  Instruction  fields,  ref.:  The  xrl6  Specifications  (doc/xspecs . pdf ) . 


//  Opcodes  (IR[15:12]) 


'define  ADD  4'hO 

' define  SUB  4 ' hi 

'define  ADDI  4'h2 

' define  RR  4 ' h3 

' define  RI  4 ' h4 

' define  LW  4 ' h5 
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XOR 

t; 


' define 

LB 

4  'h6 

' define 

SW 

4  'h8 

' define 

SB 

4  'h9 

' define 

JAL 

4  'hA 

' define 

Bcond  4 ' hB 

' define 

CALL 

4  'hC 

' define 

IMM 

4  'hD 

//  Functions 

(IR[7: 

:4]  ) 

' define 

AND 

4  'hO 

' define 

OR 

4  'hi 

' define 

XOR 

4  'h2 

' define 

ANDN 

4  'h3 

' define 

ADC 

4  'h4 

' define 

SBC 

4  'h5 

' define 

SRL 

4  'h6 

' define 

SRA 

4  'h7 

' define 

SLL 

CO 

//  Conditional  branches 

(IR[11: 

' define 

BR 

4  'hO 

' define 

BRN 

4  'hi 

' define 

BEQ 

4  'h2 

' define 

BNE 

4  'h3 

' define 

BC 

4  'h4 

' define 

BNC 

4  'h5 

' define 

BV 

4  'h6 

' define 

BNV 

4  'h7 

' define 

BLT 

4  'h8 

' define 

BGE 

4  'h9 

' define 

BLE 

4  'hA 

' define 

BGT 

4  'hB 

' define 

BLTU 

4  'hC 

' define 

BGEU 

4  'hD 

' define 

BLEU 

4  'hE 

' define 

BGTU 

4  'hF 

' define 

I  NT 

16'hAE01 

jal  rl4, 10  (rO) 


module  control  ( 

elk,  rst,  rdy,  int_req,  dma_req,  zerodma,  insn,  al5,  z,  n,  co,  v, 
mem_ce,  word_nxt,  read_nxt,  dbus_nxt,  dma, 
rf  we,  rna,  rnb, 

fwd,  imm,  sextimm4,  zextiinm4,  wordimm4,  imml2,  pipe_ce,  bl5_4_ce, 
add,  ci,  logicop,  sri, 

sum_t,  logic_t,  shl_t,  shr_t,  zeroext_t,  ret_t, 
branch,  brdisp,  selpc,  zeropc,  dmape,  pc_ce,  ret_ce) ; 


parameter 

W 

16; 

// 

parameter 

N 

W-1; 

// 

parameter 

IW 

16; 

// 

parameter 

IN 

15; 

// 

//  ports 

input 

elk; 

// 

input 

rst; 

// 

input 

rdy  ; 

// 

input 

int  req; 

// 

input 

dma  req; 

// 

input 

zerodma ; 

// 

input  [IN:0]  insn; 

// 

new 

in 

input 

al5; 

// 

data  word  width 
msb  index 

instruction  word  width 
instruction  word  msb  index 


global  clock 

global  async  reset 

current  memory  access  is  ready 

interrupt  request 

DMA  request 

zero  DMA  counter  request 
struction  word 
A  operand  msb 
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input 

input 

input 

input 

output 

output 

output 

output 

output 

output 

output  [3:0] 

output  [3:0] 

output 

register 

output  [11:0] 

output 

output 

output 

output 

output 

output 

output 

output 

output  [1:0] 

output 

output 

output 

output 

output 

output 

enable 

output 

enable 

output 

output  [7:0] 

output 

output 

output 

output 

output 

reg 

reg 

ret  t; 


z;  //  zero  result  condition  code 

n;  //  negative  result  condition  code 

co;  //  carry-out  result  codition  code 

v;  //  overflow  result  condition  code 

mem_ce;  //  memory  access  clock  enable 

word_nxt;  //  next  access  is  word  wide 

read_nxt;  //  next  access  is  read 

dbus_nxt;  //  next  access  uses  on-chip  data  bus 
dma;  //  current  access  is  a  DMA  transfer 

rf_we;  //  register  file  write  enable 

rna;  //  register  file  port  A  register  number 

rnb;  //  register  file  port  B  register  number 

fwd;  //  forward  result  bus  into  A  operand 

imm;  //  12-bit  immediate  field 

sextimm4;  //  sign-extend  4-bit  immediate  operand 

zextimm4;  //  zero-extend  4-bit  immediate  operand 

wordimm4;  //  word-offset  4-bit  immediate  operand 

imml2;  //  12-bit  immediate  operand 

pipe_ce;  //  pipeline  clock  enable 

bl5_4_ce;  //  b[15:4]  clock  enable 

add;  //  1  =>  A  +  B;  0  =>  A  -  B 

ci;  //  carry-in 

logicop;  //  logic  unit  opcode 

sri;  //  shift  right  msb  input 

sum_t;  //  active  low  adder  output  enable 

logic_t;  //  active  low  logic  unit  output  enable 

shl_t;  //  active  low  shift  left  output  enable 

shr_t;  //  active  low  shift  right  output  enable 

zeroext_t;  //  active  low  zero-extension  output 

ret_t;  //  active  low  return  address  output 


branch;  //  branch  taken 

brdisp;  //  8-bit  branch  displacement 

selpc;  //  address  mux  selects  next  PC 

zeropc;  //  force  next  PC  to  0 

dmapc;  //  use  DMA  register  in  PC  register  file 

pc_ce;  //  PC  clock  enable 

ret_ce;  //  return  address  clock  enable 

add,  ci,  branch; 

sum_t,  logic_t,  shl_t,  shr_t,  zeroext_t. 


//  locals 


reg 

o 

1— 1 

if  ir , 

ir ,  ex  ir ;  // 

instruction  registers 

//  IR  fields 
wire  [3:0] 

op 

=  ir [15:12] ;  // 

opcode 

wire 

[3:0] 

rd 

=  ir [11 : 8 

]  ; 

//  destination  register 

wire 

[3:0] 

ra 

=  ir [7 : 4] 

/ /  source  register  A 

wire 

[3:0] 

rb 

=  ir[3:0] 

//  source  register  B 

wire 

[3:0] 

cond 

=  ir[ll:8]  ; 

// 

branch  condition 

wire 

[3:0] 

fn 

=  ir [7 : 4] 

//  rr  or  ri  function  sub- 

opcode 

wire 

[3:0] 

ex  op 

=  ex  ir  [15: 12]  ; 

// 

EX  stage  opcode 

wire 

[3:0] 

ex  rd 

=  ex  ir  [  1 1 :  8 ]  ; 

// 

EX  stage  destination  register 

wire 

[3:0] 

ex  fn 

=  ex  ir  [7 : 4 ] ;  // 

EX  stage  function  sub-opcode 

assign 

imm 

=  ir [11 : 0 

]  ; 

//  12-bit  immediate  field 

assign 

brdisp 

=  ex  ir [7 : 0]  ;  // 

8-bit 

branch  displacement 

//  IF  stage  instruction  decoding 
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assign  iminl2  = 
assign  sextimmi 
assign  zextimmi 
assign  wordimm4 
wire  addsub 


op=='CALL  I  I  op=='IMM; 

=  op=='ADDI  I  I  op=='RI; 

=  op=='LB  I  I  op=='SB; 

=  op=='LW  I  I  op=='SW  I  I  op=='JAL; 

=  op=='ADD  I  I  op=='SUB  I  I  op=='ADDI; 


wire  call 
wire  St 
wire  rrri 
wire  adcsbc 


=  op=='CALL; 

=  op=='SW  I  I  op=='SB; 

=  op=='RR  II  op  ==  'RI; 

=  rrri  &&  (fn=='ADC  ||  fn=='SBC); 


wire  dcintinh =  op=='ADD  | |  op=='SUB  | |  op=='ADDI  | |  op=='Bcond  | | 

op=='CALL  I  I  op=='IMM  I  I  adcsbc; 
wire  sub  =  op=='SUB  | |  (rrri  &&  (fn==' SBC) ) ; 


//  EX  stage  decoding 

wire  ex_ldst  =  ex_op=='LW  | |  ex_op=='LB  | |  ex_op=='SW  | |  ex_op=='SB; 
wire  ex_lbsb  =  ex_op=='LB  | |  ex_op=='SB; 

wire  ex_results  =  ex_op=='ADD  | |  ex_op=='SUB  | |  ex_op=='ADDI  | | 

ex_op=='RR  I  I  ex_op=='RI  |  | 

ex_op=='LW  I  I  ex_op=='LB  |  |  ex_op=='JAL  |  | 

ex_op== ' CALL; 

wire  ex_jump  =  (ex_op=='JAL  | |  ex_op== ' CALL) ; 

reg  ex_call;  //  EX  stage  call 

reg  ex_st;  //  EX  stage  store 


//  memory  access  FSM  states  --  each  access  is  an  instruction  fetch, 

//  unless  DMA  or  load/store  is  pending 

reg  ifetch;  //  "current  access  is  insn  fetch" 

reg  dma;  //  "current  access  is  DMA" 

//  "current  access  is  load/store"  ::= 


~ (ifetch I dma) 

//  annul  FSM  states 

reg  sync_reset;  //  synchronous  memory  FSM  reset 
reg  dc_annul;  //  annul  DC  stage  instruction 

reg  ex_annul;  //  annul  EX  stage  instruction 


//  interrupt  state 
reg  int_pend; 
reg  dc_int;  //  DC 
wire  if  int;  //  IF 


/ /  interrupt  is  pending 
stage  instruction  is  int 
stage  'interrupt  in  progress' 


//  DMA  state 

reg  dma_pend;  //  DMA  is  pending 

reg  zero_pend;  //  zero  (reset)  DMA  is  pending 


//  memory  access  FSM  transitions: 
//  case  (state) 


// 

IF; 

state 

nxt  =  dma  pend  ?  DMA  ; 

:  Idst 

pend 

?  LS  : 

:  IF 

// 

DMA: 

state 

nxt  = 

Idst 

pend 

?  LS  : 

:  IF 

// 

LS  : 

state 

nxt  = 

IF 

//  endcase 

wire  ldst_pend  =  ex_ldst  &  ~ex_annul; 

wire  if_nxt  =  ifetch&~dma_pend&~ldst_pend  |  dma&~ldst_pend  | 

~ifetch&~dma; 

wire  dma_nxt  =  ifetch&dma_pend; 

wire  ldst_nxt =  ifetch&~dma_pend&ldst_pend  |  dma&ldst_pend; 


wire  jump  =  ex  jump  &&  ~ex  annul; 

wire  exannul_nxt=  sync_reset  |  branch  |  jump  |  dc_annul; 


//  FSM  output  decodes 

assign  mem_ce =  rdy; 

assign  pipe  ce  =  rdy&if  nxt; 
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assign  pc_ce  =  rdy& (if_nxt | dma_nxt)  ; 

assign  ret_ce =  rdy&if_nxt&~dc_int; 

assign  word_nxt  =  ~ (ldst_nxt&ex_lbsb) ; 

assign  read_nxt  =  ~ (ldst_nxt&ex_st) ; 

assign  dbus_nxt  =  ldst_nxt; 

assign  dmapc  =  dma_nxt; 

assign  selpc  =  if_nxt&~ j ump  |  dma_nxt; 

assign  zeropc =  ( zero_pend&dma_nxt)  |  sync_reset; 

assign  if_int =  int_pend&~branch&~ j ump&~dcintinh; 

//  IR  clocking 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

if_ir  <=  0; 
ir  <=  0; 
ex_ir  <=  0; 

end 

else  begin 

if  (ifetch  &&  rdy) 

if_ir  <=  insn; 
if  (pipe_ce)  begin 

ir  <=  (if_int)  ?  ' INT  :  (ifetch)  ?  insn  :  if_ir 
ex  ir  <=  ir; 

end 

end 

end 

//  instruction  decode  clocking 
always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

ex_call  <=  0; 
ex_st  <=  0; 

end 

else  if  (pipe_ce)  begin 
ex_call  <=  call; 
ex_st  <=  St; 

end 

end 

//  memory  access  FSM  clocking 
always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

ifetch  <=  1; 
dma  <=  0; 

end 

else  if  (rdy)  begin 

ifetch  <=  if_nxt; 
dma  <=  dma_nxt; 

end 

end 

//  annul  states  clocking 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

sync_reset  <=  1; 
else  if  (rdy) 

sync_reset  <=  0; 

end 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

dc_annul  <=  1; 
ex  annul  <=  1; 
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end 

else  if  (pipe_ce)  begin 

dc_annul  <=  sync_reset  |  branch  |  jump; 
ex  annul  <=  exannul_nxt ; 

end 

end 

//  DMA  request  clocking 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

dma_pend  <=  0 ; 
else  if  (dma_req) 

dma_pend  <=  1 ; 
else  if  (dma) 

dma_pend  <=  0 ; 

end 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

zero_pend  <=  0; 
else  if  (zerodma) 

zero_pend  <=  1; 
else  if  (dma) 

zero_pend  <=  0; 

end 


//  interrupt  request  clocking 
always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

int_pend  <=  0; 
else  if  (int_req) 

int_pend  <=  1; 
else  if  (if_int  &&  pipe_ce) 
int_pend  <=  0; 

end 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

dc_int  <=  0; 
else  if  (pipe_ce) 

dc_int  <=  if_int; 

end 


//  DC  stage 
wire  [3:0] 
wire  [3:0] 
assign 
assign 

ex_rd)  ; 

assign 
assign 
~ex  annul; 

assign 


operand  selection 

rsrc  =  call  ?  0  :  rrri  ?  rd  :  ra; 
rdest  =  ex_call  ?  15  :  ex_rd; 
rna  =  elk  ?  rsrc  :  rdest; 

rnb  =  elk  ?  (st  ?  rd  :  rb)  :  (ex_call  ?  15  : 

rf_we  =  ex_results  &  pipe_ce  &  ~ex_annul  &  (rdest  !=  0) ; 
fwd  =  (rsrc==rdest)  &  (rdest !=0)  &&  ex_results  & 

bl5_4_ce=  pipe_ce  &&  ~ (ex_op==' IMM  &&  ~ex_annul); 


//  DC  stage  conditional  branches 
reg  taken; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

branch  =  0; 

else  if  (pipe_ce)  begin 


case 

(cond) 

'BR: 

taken  = 

1 

'BRN: 

taken  = 

0 

'BEQ: 

taken  = 

z 
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end 


end 


'BNE:  taken  =  ~z; 

' BC :  taken  =  co; 

'BNC:  taken  =  ~co; 

' BV :  taken  =  v; 

'BNV:  taken  =  ~v; 

'BLT:  taken  =  n^v; 

'BGE:  taken  =  ~  (n''v)  ; 

'BLE:  taken  =  (n^v) | z; 

'BGT:  taken  =  ~((n^v)|z); 

' BLTU :  taken  =  ~z&~co; 

' BGEU :  taken  =  z|co; 

'BLEU:  taken  =  z|~co; 

' BGTU :  taken  =  ~z&co; 
endcase 

branch  =  op=='Bcond  &&  taken  &&  ~exannul_nxt; 


//  EX  stage  ALU  control 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 
add  <=  1 ; 
ci  <=  0; 

end 

else  if  (pipe_ce)  begin 
add  <=  ~sub; 

ci  <=  sub  ^  (adcsbc  &  co) ; 

end 

end 

assign  logicop  =  ex_ir[5:4]; 

assign  sri  =  ex_fn=='SRA  &&  al5; 

//  EX  stage  result  multiplexer  control 
always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 


sum  t 

<  = 

1; 

logic 

t 

<= 

zeroext  t 

<=  1; 

shr  t 

<  = 

1; 

shl  t 

<- 

1; 

ret  t 

<  = 

1; 

end 

else  if  (pipe_ce)  begin 

sum_t  <=  ~(addsub  | |  adcsbc); 

logic_t  <=  ~(rrri&&  (fn=='AND  | |  fn=='OR  | |  fn=='XOR 

II  fn=='ANDN) ) ; 

zeroext_t  <=  ~(op=='LB); 

shr_t  <=  ~(rrri  &&  (fn=='SRL  | |  fn=='SRA)); 
shl_t  <=  ~(rrri  &&  fn=='SLL); 
ret_t  <=  ~(op=='JAL  I  I  op=='CALL); 

end 

end 


endmodule 

*/ 
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F 


DATAPATH.V 


'include  "voterids.v" 

'timescale  Ins  /  Ips 

/*  datapath. V  --  xrl6  datapath  synthesizable  Verilog  model 

■k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

k 

*  $Header:  /dist/xsocv/datapath . v  6  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/datapath. V  $ 

•k 

*  6  4/06/00  10:55a  Jan 

*  polish 
*/ 

/*  last  modified  by  David  Dwiggins,  24  August  2008.  Adapted  to  use 

*  TMR/ECC  functionality  for  fault-tolerance.  */ 

//  original  code  by  Jan  Gray  included  at  end  of  file 


module  datapath (elk,  rst,  rf_we,  rna,  rnb,  rdest, fwd,  imm, 

sextimm4,  zextimm4,  wordimm4,  imml2,  pipe_ce,  bl5_4_ce, 
add,  ci,  logicop,  sri,  sum_t,  logic_t,  shl_t,  shr_t, 
zeroext_t,  ret_t,  ld_t,  ud_t,  udlt_t,  branch,  brdisp, 
selpc,  zeropc,  dmape,  pc_ce,  ret_ce,  in_a,  in_b,  in_dout, 
in  ret,  inst_id,  in  addr  nxt,  res,  errorbus, 
al5,  z,  n,  CO,  v,  addr_nxt,  areg,  breg,  memdta, 
out_a,  out_b,  out_dout,  out_ret,  drivehi,  drivelo,  my_res); 

parameter  W  =16;  //  word  width 

parameter  N  =  W-1; 


//  ports 

input 

input 

input  [2:0] 
input  [11:0] 
input  [11:0] 
input  [11:0] 
input 
operand  reg 

input  [11:0] 
input 
operand 

input 

operand 

input 

operand 

input 

input  [2:0] 
input  [2:0] 
input 
input 

input  [1:0] 
input 
input 
input 

enable 

input 

enable 


rf 

rna  ; 
rnb  ; 
rdest; 


elk;  //  global  clock 

rst;  //  global  async  reset 

we;  //  register  file  write  enable 

//  register  file  port  A  register  number 
//  register  file  port  B  register  number 
//  register  file  write  port  register  number 
fwd;  //  forward  result  bus  into  A 


rmm; 


//  12-bit  immediate  field 

sextimm4;  //  sign-extend  4-bit  immediate 

zextimm4;  //  zero-extend  4-bit  immediate 


wordimm4 ; 


//  word-offset  4-bit  immediate 


iinml2  ; 

pipe_ce;  // 

bl5_4_ce;  // 

add; 
ci; 

logicop;  // 

sri  ; 
sum_t; 
logic_t; 


//  12-bit  immediate  operand 
pipeline  clock  enable 
b[15:4]  clock  enable 

//1=>A+B;  0=>A-B 
/ /  carry-in 
logic  unit  opcode 

//  shift  right  msb  input 
//  active  low  adder  output  enable 
/ /  active  low  logic  unit  output 


shl  t; 


//  active  low  shift  left  output 
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enable 


input 

shr  t; 

// 

active 

low  shift  right  output 

input 

zeroext  t 

;  // 

active 

low  zero-extension 

enable 

input 

ret  t; 

// 

active 

low  return  address 

enable 

input 

ud  t; 

// 

active 

low  store  data  MSB 

enable 

input 

-P 

zs' 
1 — 1 

// 

active 

low  store  data  LSB 

enable 

input 

udlt  t; 

// 

active  low  store  data 

SB  output  en 

input 

branch; 

// 

branch  taken 

input 

[7:0] 

brdisp 

// 

8-bit  branch  displacement 

input 

selpc; 

// 

address  mux  selects  next  PC 

input 

zeropc; 

// 

force  next  PC  to  0 

input 

[2:0] 

dmapc ; 

// 

use  DMA  register  in  PC  register  file 

input 

[2:0] 

pc  ce; 

// 

PC  clock  enable 

input 

[2:0] 

ret  ce 

// 

return 

address  clock  enable 

input 

[47:0] 

in 

a; 

input 

[47:0] 

in 

_b; 

input 

[47:0] 

in 

dout; 

input 

input 

input 

input 

inout 

output 

output 

output 

output 

output 

output 

output 

debugging 

output 

debugging 

output 


[47:0] 

[1:0] 

[47:0] 

[47:0] 

[15:0] 


[N:0] 

[N:0] 

[N:0] 

[N:0] 


byte 

byte 


output  [15:0] 
output  [15:0] 
output  [15:0] 
output  [15:0] 
output 

output 


in_ret; 

inst_id; 
in_addr_nxt  ; 
res  ; 

errorbus ; 

al5; 

z ; 
n  ; 

co; 

v; 

addr_nxt; 

areg; 

breg; 

memdta;  //  B  register  output  for  memory  writes 

out_a;  //  a  operand  out  (for  voting) 

out_b;  //  b  operand  out  (for  voting) 
out_dout;  //  dout  out  (for  voting) 

out_ret;  //  ret  out  (for  voting) 

drivehi;  //  tri-state  driver  enable,  high 


//  on-chip  data  bus 

//  A  operand  msb 

//  zero  result  condition  code 
//  negative  result  condition  code 
//  carry-out  result  codition  code 
//  overflow  result  condition  code 
//  address  of  next  memory  access 

//  a  register  output,  used  for 

//  b  register  output,  used  for 


output  [15  :  0]  my_res; 

wor  [15:0]  errorbus; 

tri  [15:0]  out  res; 


drivelo;  //  tri-state  driver  enable,  low 

//  data  out 


//  global  error  bus 

//  result  out  (for  voting) 


//  assign  outerrorbus  =  errorbus; 

//  voted  buses 


Wire 

wire 

[3 

0] 

V  rna; 

wire 

[3 

0] 

V  rnb; 

wire 

[3 

0] 

V  rdest 

wire 

V  rf  we;  //  register  file  write  enable 

//  register  file  port  A  register  number 
//  register  file  port  B  register  number 
//  register  file  write  port  register  number 
v_pipe_ce;  //  pipeline  clock  enable 
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wire 

V  bl5  4  ce;  //  b[15:4]  clock  enable 

wire 

V  dmape; 

//  use  DMA  register  in  PC 

register  file 

wire 

V  pc  ce; 

//  PC  clock  enable 

wire 

V  ret  ce; 

//  return  address  clock  enable 

wire 

[15:0] 

V  res; 

// 

voted  result  bus 

wire 

[15:0] 

V  a; 

wire 

[15:0] 

v_b; 

wire 

[15:0] 

V  dout 

; 

wire 

[15:0] 

V  ret; 

wire 

[15:0] 

V  addr 

nxt; 

wire 

[47:0] 

in  addr  nxt; 

wire 

[15:0] 

areg,  breg;  //  outputs  of  the  register  file  data 

ports 

wire 

[15:0] 

pc; 

//  current  PC 

wire 

[6:0] 

brdispext 

reg 

[N:0] 

a,  b; 

//  operand  registers 

reg 

[N:0] 

dout; 

//  store  data  output  register 

reg 

[N:0] 

ret; 

//  return  address  (DC  stage  PC) 

//  non- 

-clocked  combinatorial 

verilog  "registers" 

reg 

[N:0] 

sum; 

//  adder  output 

reg 

z,  n. 

CO,  v; 

reg 

[N:0] 

addr  nxt; 

reg 

[N:0] 

penext; 

//  next  PC  //  REVIEW 

reg 

[N:0] 

dlogic; 

/ /  logic  unit  output 

assign 

brdispext  = 

[brdisp [ 7 ] 

,brdisp[7] ,brdisp[7] ,brdisp[7]  , 

brdisp [ 7 ] , brdisp [ 7 ] , brdisp [ 7 ] } ; 


voterlnsyn  #(1)  rf_we_v  ( . din (r f_we ) ,  . dout (v_r f_we ) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . I D ( { ' DP_RF_WE_V } ) ) ; 

voterlnsyn  #(4)  rna_v  (.din(rna),  . dout (v_rna ) ,  . errorbus  (errorbus ) 

.elk (elk),  .rst(rst),  . ID ( { ' DP_RNA_V} ) ) ; 

voterlnsyn  #(4)  rnb_v  (.din(rnb),  . dout (v_rnb ) ,  . errorbus  (errorbus ) 

.elk (elk),  .rst(rst),  . ID ( { ' DP_RNB_V} ) ) ; 

voterlnsyn  #(4)  rdest_v  ( . din (rdest ) ,  . dout (v_rdest ) , 

. errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  . ID ( { ' DP_RDEST_V} ) ) ; 

voterlnsyn  #(1)  dmapo_v  ( . din (dmape ) ,  . dout (v_dmapo ) , 

. errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  . I D ( { ' DP_DMAPC_V } ) ) ; 

voterlnsyn  #(1)  pipe_oe_v  ( . din (pipe_oe ) ,  . dout (v_pipe_oe ) , 

. errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  . ID ( { ' DP_PIPE_CE_V} ) ) ; 

voterlnsyn  #(1)  bl5_4_oe_v  ( . din (bl 5_4_oe ) ,  . dout (v_bl5_4_oe) , 

.  errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  . ID ( { ' DP_B15_4_CE_V} ) ) ; 

voterlnsyn  #(16)  addr_nxt_v  ( . din (in_addr_nxt) ,  . dout ( v_addr_nxt ) , 

.  errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  . ID ( { ' DP_ADDR_NXT_V} ) ) ; 

voterlnsyn  #(1)  po_oe_v  ( . din (po_oe ) ,  . dout (v_po_oe ) , 

. errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  . I D ( { ' DP_PC_CE_V } ) ) ; 

voterlnsyn  #(1)  ret_oe_v  ( . din ( ret_oe ) ,  . dout (v_ret_oe) , 

.  errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  . ID ( { ' DP_RET_CE_V} ) ) ; 

voterlnsyn  #(16)  res_v  (.din (res),  . dout (v_res ) ,  . errorbus  (errorbus ) 

.elk (elk),  .rst(rst),  . ID ( { ' DP_RES_V} ) ) ; 

voterlnsyn  #(16)  a_v  (.din(in_a),  .dout(v_a),  . errorbus  (errorbus ) , 
.olk(olk),  .rst(rst),  .ID({'DP_A  V} ) ) ; 
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voterlnsyn  #(16)  b_v  ( . din ( in_b) ,  .dout(v_b),  . errorbus (errorbus ) , 
.elk (elk),  .rst(rst),  . ID ( { ' DP_B_V} ) ) ; 

voterlnsyn  #(16)  dout_v  ( . din (in_dout) ,  . dout ( v_dout ) , 

.  errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  . ID ( { ' DP_DOUT_V} ) ) ; 

voterlnsyn  #(16)  ret_v  ( . din (in_ret) ,  . dout (v_ret) , 

. errorbus  (errorbus ) ,  .olk(olk),  .rst(rst),  .ID({'DP_RET_V})); 

registerl 6x1 6  abregs  (.olk(olk),  .rst(rst),  . we (v_r f_we ) ,  . addra (v_rna) , 

.  addrb (v_rnb) , 

. addrw (v_rdest) ,  .din(v_res),  . adout (areg) ,  . bdout (breg) ) ; 

pefile  pes  (.olk(olk),  .rst(rst),  . we (v_po_oe ) ,  . addr (v_dmapo ) , 

.din (v_addr_nxt) ,  . adout (pe )) ; 

assign  memdta=v_pipe_oe  ?  breg  :  dout; 

//  operand  registers 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 
a  <=  0; 
b  <=  0; 
dout  <=  0; 

end 

else  begin 

if  (v_pipe_oe)  begin 
a  <=  v_a; 

b[3:0]  <=  v_b[3:0]  ; 
dout  <=  v_dout; 

end 

if  (v_bl5_4_oe)  begin 

b[15r4]  <=  v_b[15:4]  ; 

end 

end 

end 


assign  out_dout  =  breg; 

assign  out_a  =  fwd  ?  res  :  areg; 

assign  out_b[3:0]  =  (sextimmi  | |  zextimmi)  ?  imm[3:0]  :  (  wordimm4  ? 

({imm[3:l],l'b0})  :  (imml2  ?  4'bO  :  breg[3:0])); 

assign  out_b[15:4]  =  sextimm4  ?  ( { 12 { imm [ 3 ] } } )  :  (zextimm4  ?  12 'bO  : 

(wordimmi  ?  ( { 1 1 ' bO , imm [ 0 ] } )  :  (imml2  ?  imm[ll:0]  :  breg [15:4]))); 


above 


//ISE  understands  the  following  but  ModelSim  does  not,  ugly 
followed 
//always_comb 


// 

// 

// 

// 

// 

// 

// 

// 


if  (v_sextimm4  |  |  v_zextiinm4) 
out_b[3:0]  <=  imm[3:0]; 
else  if  (v_wordimm4) 

out_b[3:0]  <=  {imm[3: 1] , 1 'bO} ; 
else  if  (v_imml2) 

out_b[3:0]  <=  0; 

else 

out_b[3:0]  <=  breg [3:0]; 


//always_comb 


// 

// 

// 

// 

// 

// 


if  (v_sextimm4) 

^out_b[15:4]  <=  {12{imm[3]  }  }  ; 
else  if  (v_zextimm4) 

out_b[15:4]  <=  12 'bO; 
else  if  (v_wordimm4) 

outlo[15:4]  <=  [11 'bO, imm[0] } ; 


assign 


code 
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// 

else 

if  (v  imml2) 

// 

out_b [15: 4] 

<=  imm[ll:0] 

// 

else 

// 

out_b [15: 4] 

<=  breg [15:4 

//  ALU 
assign  al5 

=  a[15] ; 

reg  ign; 
reg  coO; 
always  @  (a 

or  b  or  add  or 

ci)  begin 

if  (add)  begin 

{ coO, sum, ign}  =  {a,ci}  +  {b,l'bl}; 

CO  =  coO; 

end 

else  begin 

{ coO, sum, ign}  =  {a,ci}  -  {b,l'bl}; 

CO  =  ~co0; 

end 

z  =  sum  ==  0; 
n  =  sum [15] ; 

//  sum[15]  =  a[15]  ^  b[15]  ^  cl5  <===>  cl5  =  sum[15]  ^  a[15 

b[15] 

V  =  coO  ^  sum [15]  ^  a[15]  ^  b[15]; 

end 

always  @(a  or  b  or  logicop)  begin 
case  (logicop) 

0:  dlogic  <=  a&b; 

1:  dlogic  <=  a|b; 

2:  dlogic  <=  a^b; 

3:  dlogic  <=  a&~b; 
endcase 

end 

//  address/PC  unit 

always  @ (branch  or  pc  or  brdispext  or  brdisp  or  dmapc)  begin 
if  (branch  &  ~dmapc) 

pcnext  <=  pc  +  [brdispext [ 6 : 0 ], brdisp [7 : 0 ], 1 ' bO } ; 

else 

pcnext  <=  pc  +  2; 

end 

always  @(sum  or  pcnext  or  selpc  or  zeropc)  begin 
if  (zeropc) 

addr_nxt  <=  0  ; 
else  if  (selpc) 

addr_nxt  <=  pcnext; 

else 

addr_nxt  <=  sum; 

end 

assign  out_ret  =  pc; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

ret  <=  0; 

else  if  (v_ret_ce) 

ret  <=  v_ret; 

end 

/ /  result  multiplexer 
assign  out_res 
assign  out_res 
assign  out_res 


sum_t 

logic_t 

shl_t 
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?  16'bz 
?  16'bz 
?  16'bz 


sum; 

dlogic; 

{  a[14:0],l'b0  } 


a[15:l]  }; 


assign  out_res 
assign  out_res 
assign  out_res[7:0] 
assign  out_res [ 15 : 8 ] 
assign  out_res[7:0] 
assign  out_res [ 15 : 8 ] 


=  shr_t 
=  ret_t 

ld_t  ?  8'bz 
ud_t  ?  8'bz 
udlt_t  ?  8'bz 
zeroext  t  ?  8'bz 


16'bz  :  {  sri, 

16 'bz  ;  ret; 
dout  [7:0] ; 
dout  [15:8]  ; 
dout [15:8] ; 

0; 


//  due  to  partitioning  requirements,  moving  the  tri-state  data  bus 
drivers  outside  the  module 

assign  my_res  =  out_res; 

assign  drivehi  =  ( (~sum_t)  |  (~logic_t)  |  (~shl_t)  |  (~shr_t)  |  (~ret_t) 

I  (~ud_t)  I  (~zeroext_t) ) ; 

assign  drivelo  =  ( (~sum_t)  |  (~logic_t)  |  (~shl_t)  |  (~shr_t)  |  (~ret_t) 

I  (~ld  t)  I  (~udlt  t) ) ; 


endmodule 


//  original  code  by  Jan  Gray  below 


/*  datapath. V  --  xrl6  datapath  synthesizable  Verilog  model 

■k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

k 

*  $Header:  /dist/xsocv/datapath . v  6  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/datapath. V  $ 

* 

*  6  4/06/00  10:55a  Jan 

*  polish 


module  datapath ( 

elk,  rst, 

rf  we,  rna,  rnb, 

fwd,  imm,  sextimm4,  zextimm4,  wordimm4,  imml2,  pipe_ce,  bl5_4_ce, 
add,  ci,  logicop,  sri, 

sum_t,  logic_t,  shl_t,  shr_t,  zeroext_t,  ret_t,  ld_t,  ud_t, 

udlt_t. 


branch,  brdisp,  selpc,  zeropc,  dmape,  pc_ce,  ret_ce, 
al5,  z,  n,  CO,  v,  addr_nxt,  res); 


parameter 

W  =16; 

// 

word  width 

parameter 

N  =  W-1 

;  // 

msb  index 

//  ports 

input 

elk; 

// 

global  clock 

input 

rst; 

// 

global  async  reset 

input 

r  f  we ; 

// 

register  file  write  enable 

input  [3:0] 

rna  ; 

// 

register  file  port  A  register  number 

input  [3:0] 

rnb  ; 

// 

register  file  port  B  register  number 

input 

fwd; 

// 

forward  result  bus  into  A  operand  reg 

input  [11:0]  imm; 

//  12 

-bit 

immediate  field 

input 

sextimm4 ; 

// 

sign-extend  4-bit  immediate  operand 

input 

zextimm4  ; 

// 

zero-extend  4-bit  immediate  operand 

input 

wordimm4 ; 

// 

word-offset  4-bit  immediate  operand 

input 

imml2 ; 

// 

12-bit  immediate  operand 

input 

pipe  ce; 

// 

pipeline  clock  enable 

input 

bl5_4_ce; 

// 

b[15:4]  clock  enable 

input 

add; 

// 
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1  =>  A  +  B;  0  =>  A  -  B 

input 

ci; 

/ /  carry-in 

input  [1:0] 

logicop; 

// 

logic  unit  opcode 

input 

sri  ; 

// 

shift  right  msb  input 

input 

sum  t; 

// 

active  low  adder  output  enable 

input 

logic  t; 

// 

active  low  logic  unit  output  enable 

input 

shl  t; 

// 

active  low  shift  left  output  enable 

input 

shr  t; 

// 

active  low  shift  right  output  enable 

input 

zeroext  t 

// 

active  low  zero-extension  output 

enable 

input 

ret  t; 

// 

active  low  return  address  output 

enable 

input 

ud  t; 

// 

active  low  store  data  MSB  output 

enable 

input 

-P 

zs' 
1 — 1 

// 

active  low  store  data  LSB  output 

enable 

input 

udlt  t; 

//  active  low  store  data  MSB->LSB 

output  en 

input 

branch; 

//  branch  taken 

input  [7:0] 

brdisp; 

//  8-bit  branch  displacement 

input 

selpc; 

// 

address  mux  selects  next  PC 

input 

zeropc; 

//  force  next  PC  to  0 

input 

dmape; 

// 

use  DMA  register  in  PC  register  file 

input 

pc  ce; 

// 

PC  clock  enable 

input 

ret  ce; 

//  return  address  clock  enable 

output 

al5; 

// 

A  operand  msb 

output 

z ; 

//  zero  result  condition  code 

output 

n  ; 

//  negative  result  condition  code 

output 

co; 

//  carry-out  result  codition  code 

output 

v; 

//  overflow  result  condition  code 

output  [N:0] 

addr 

nxt;  // 

address  of  next  memory  access 

inout  [N:0] 

res  ; 

// 

on- 

-chip  data  bus 

tri 

[N:0] 

res  ; 

reg 

z. 

n. 

CO, 

v; 

reg 

[N:0] 

addr  nxt; 

//  loeals 

wire  [N:0] 

areg 

nxt,  breg  nxt; 

// 

reg  file  read  port  RAM  output  buses 

reg  [N:0] 

areg. 

breg;  // 

register  file  read  ports 

reg  [N:0] 

a,  b; 

// 

operand  registers 

reg  [N:0] 

dout; 

// 

store 

data  output  register 

reg  [N:0] 

sum; 

// 

adder 

output 

reg  [N:0] 

logic 

;  // 

logic 

unit  output 

wire  [N:0] 

pc; 

// 

current  PC 

reg  [N:0] 

penext; 

// 

next  PC  //  REVIEW 

reg  [N:0] 

ret; 

// 

return 

address  (DC  stage  PC) 

wire  [6:0] 

brdispext  =  [brdisp [7] 

,  brdisp [7 ] , brdisp [7 ] , brdisp [7 ]  , 

brdisp [ 7 ] , brdisp [ 7 ] , brdisp [ 7 ] } ; 

//  submodules 

raml6xl6s  aregs (. walk (elk) ,  .addr(rna),  . we ( r f _we ) ,  .d(res), 

■o (areg_nxt) ) ; 

raml6xl6s  bregs  ( . wclk  (elk) ,  .addr(rnb),  .we(rf_we),  .d(res), 

. o  (breg_nxt) ) ; 

raml6xl6s  pes  ( . welk  (elk) ,  . addr ( { 3 ' bO , dmape } ) ,  .we(pe_ee),  . d (addr_nxt) , 

•o (pe) ) ; 

//  register  file  output  registers 
always  @ (negedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

areg  <=  0; 
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breg  <=  0; 

end 

else  begin 

areg  <=  areg  nxt; 
breg  <=  breg_nxt; 

end 

end 

//  operand  registers 

always  @  (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 
a  <=  0; 
b  <=  0; 
dout  <=  0; 

end 

else  begin 

if  (pipe_ce)  begin 

a  <=  fwd  ?  res  :  areg; 
if  (sextiinm4  |  |  zextiinm4) 
b [ 3  :  0 ]  <=  imm [3:0]; 
else  if  (wordimm4) 

b[3:0]  <=  {imin[3:l]  ,1'bO}; 
else  if  (imml2) 

b[3:0]  <=  0; 

else 

b[3:0]  <=  breg [3:0]  ; 
dout  <=  breg; 

end 

if  (bl5_4_ce)  begin 
if  (sextiinm4) 

b  [15:  4]  <=  {12{imin[3]  }  }  ; 
else  if  (zextiinm4) 

b[15:4]  <=  12'b0; 
else  if  (wordimm4) 

b  [15:  4]  <=  [11  'bO,  iinm[0]  }  ; 
else  if  (imml2) 

b[15:4]  <=  imm[ll:0] ; 

else 

b[15:4]  <=  breg [15:  4]  ; 

end 

end 

end 
//  ALU 

assign  al5  =  a[15]; 
reg  ign; 
reg  coO; 

always  @(a  or  b  or  add  or  ci)  begin 
if  (add)  begin 

[ coO, sum, ign}  =  {a,ci}  +  (b,l'bl}; 

CO  =  coO; 

end 

else  begin 

[ coO, sum, ign}  =  {a,ci}  -  (b,l'bl}; 

CO  =  ~co0; 

end 

z  =  sum  ==  0; 
n  =  sum [15] ; 

//  sum[15]  =  a[15]  ^  b[15]  ^  cl5  <===>  cl5  =  sum[15]  ''  a[15] 

b[15] 

V  =  coO  ^  sum [15]  ^  a[15]  ^  b[15]; 

end 
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always  @(a  or  b  or  logicop)  begin 
case  (logicop) 

0:  logic  <=  a&b; 

1:  logic  <=  a|b; 

2:  logic  <=  a^b; 

3:  logic  <=  a&~b; 
endcase 

end 

//  address/PC  unit 

always  @ (branch  or  pc  or  brdispext  or  brdisp  or  dmapc)  begin 
if  (branch  &  ~dmapc) 

pcnext  <=  pc  +  {brdispext [ 6 : 0 ], brdisp [7 : 0 ], 1 ' bO } ; 

else 

pcnext  <=  pc  +  2; 

end 

always  @(sum  or  pcnext  or  selpc  or  zeropc)  begin 
if  (zeropc) 

addr_nxt  <=  0 ; 
else  if  (selpc) 

addr_nxt  <=  pcnext; 

else 

addr_nxt  <=  sum; 

end 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

ret  <=  0; 
else  if  (ret_ce) 
ret  <=  pc; 

end 

//  result  multiplexer 


assign 

res 

=  sum  t 

9 

16  'bz 

sum; 

assign 

res 

=  logic  t 

9 

16  'bz 

logic; 

assign 

res 

=  shl  t 

9 

16  'bz 

{  a[14;0],l'b0  } 

assign 

res 

=  shr  t 

9 

16  'bz 

{  sri,  a[15:l]  } 

assign 

res 

=  ret  t 

9 

16  'bz 

ret; 

assign 

res [7:0] 

=  id  t 

9 

8  '  bz 

dout  [7:0] ; 

assign 

res  [15:8] 

=  ud_t  ? 

8  '  bz 

:  dout [15:8]  ; 

assign 

res [7:0] 

=  udlt  t 

9 

8  '  bz 

dout [15:8] ; 

assign 

res [15:8] 

=  zeroext  t  ? 

8  '  bz 

:  0; 

endmodule 

G.  ERRORFIFO.V 

'include  "voterids.v" 

'timescale  Ins  /  Ips 

'define  ERROR  DATA 

5  'hO 

'define  ERROR  HAS  DATA  5'h2 

module  errorrept (elk,  rst. 

Ctrl,  int  req,  sel. 

d. 

errorbus ) ; 

input 

elk; 

//  global  clock 

input 

rst; 

//  global  async 

input  [47:0] 

Ctrl;  //  abstract  control  bus 

output  [2:0] 

int  req; 

input  [2:0] 

sel ; 

// 

peripheral  select 
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//  LSB  of  on-chip  data  bus 


inout  [47:0]  d; 

inout  [15:0]  errorbus; 


tri  [47:0] 
wire  [2:0] 


d; 


int_req; 


wor  [15:0] 
wire  [14:0] 
wire  [2:0] 
wire  [47:0] 
wire  [2:0] 
wire  [2:0] 
wire  [15:0] 
wire 
wire 


errorbus ; 

addr  ; 

ud_t,  ld_t,  ud_ce,  ld_ce; 
dout; 
er_add; 
er_remove ; 
queue_out  ; 

full; 

nearlyf ull ; 


ctrl_dec_syn  decO 
.ud_t (ud_t [0] )  , 

.addr (addr [4:0]  )  , 


.clk;(clk;),  .rst(rst),  .ctrl(ctrl),  .sel(sel), 

. ld_t (ld_t [0] ) ,  .ud_ce (ud_ce [0] ) ,  .ld_ce (ld_ce [0] ) 
. errorbus (errorbus ) ,  . id ( ' ER  CTRL  DEC) ) ; 


ctrl_dec_syn  decl 
.  ud_t (ud_t [ 1 ] )  , 

. addr (addr [9:5] )  , 


.clk;(clk;),  .rst(rst),  .ctrl(ctrl),  .sel(sel), 

. ld_t (ld_t [1 ] ) ,  .ud_ce (ud_ce [1] ) ,  . ld_ce (ld_ce [1 ] ) 

. errorbus (errorbus ) ,  . id ( ' ER_CTRL_DEC) ) ; 


ctrl_dec_syn  dec2 
.ud_t (ud_t [2] ) , 

.  addr ( addr [14:10]), 


errorrept_inod  err 
.errorbus (errorbus)  , 


.clk;(clk;),  .rst(rst),  .ctrl(ctrl),  .sel(sel), 

. ld_t (ld_t [2 ] ) ,  . ud_ce (ud_ce [2 ] ) ,  . ld_ce (ld_ce [2 ] ) 

. errorbus (errorbus ) ,  . id ( ' ER_CTRL_DEC) ) ; 

rptO  (  . elk (elk) ,  .rst(rst),  .addr(addr). 


.ld_t(ld_t),  .dout (dout [15: 0] ) ,  . er_add (er_add [ 0] ) , 

.  er_r emove ( er_r emove [ 0 ] )  , 

. queue_empty (empty) ,  . queue_out (queue_out ) , 

. int_req ( int_req [ 0 ] ) ) ; 


errorrept_mod  err_rptl ( . elk (elk) ,  .rst(rst),  .addr (addr), 
.errorbus (errorbus) , 


.ld_t(ld_t),  .dout (dout [31 : 16] ) ,  .er_add(er_add[l] ) 

.  er_r emove ( er_r emove [ 1 ] )  , 

. queue_empty (empty) ,  . queue_out (queue_out ) , 

. int_req ( int_req [ 1 ] ) ) ; 


errorrept_mod  err_rpt2 ( . elk (elk) ,  .rst(rst),  .addr (addr), 
.errorbus (errorbus) , 


.ld_t(ld_t),  .dout (dout [47: 32] ) ,  . er_add (er_add [2 ] ) 

.  er_r emove ( er_r emove [ 2 ] )  , 

. queue_empty (empty) ,  . queue_out (queue_out ) , 

. int_req ( int_req [ 2 ] ) ) ; 


queue_16x8  errorqueue  (. din (errorbus ) ,  .clk(clk),  .rst(rst), 
.  add (er_add) ,  . remove (er_remove) , 

. dout (queue_out) ,  . empty (empty) ,  .full  (full), 

.nearlyfull  (nearlyfull) ,  .errorbus (errorbus) ) ; 


assign  d[7:0]  =  ld_t[0]  ?  8'bz  :  dout [7:0]; 
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assign 

d[15 

8] 

=  ud  i 

t[0] 

?  8  ' 

bz 

assign 

d[23 

16] 

=  Id 

t[l] 

?  8 

'  bz 

assign 

d[31 

24] 

=  ud' 

t[l] 

?  8 

'  bz 

assign 

d[39 

32] 

=  Id' 

t[2] 

?  8 

'  bz 

assign 

d[47 

40] 

=  ud' 

t[2] 

?  8 

'  bz 

dout [15:8]  ; 
dout [23:16]  ; 
dout [31:  24]  ; 
dout [39: 32] ; 
dout[47:40]  ; 


endmodule 


module  errorrept_mod (elk,  rst,  errorbus,  addr,  ld_t,  dout, 

er_add,  er_remove,  queue_empty, 

queue_out, 

int_req) ; 

input  elk;  //  global  eloek 

input  rst;  //  global  asyne  reset 

inout  [15:0]  errorbus; 

input  [14:0]  addr; 

input  [2:0]  ld_t; 


output 

[15:0] 

dout; 

output 

er  add; 

output 

er  remove; 

input 

queue  empty 

input 

[15:0] 

queue  out; 

output 

int  req; 

wor 

[15:0] 

errorbus ; 

wire 

[14:0] 

addr  ; 

wire 

[2:0] 

ld_t; 

reg 

[15:0] 

dout; 

wire 

[15:0] 

queue 

out; 

wire 

V  Id  t; 

wire 

empty; 

wire 

full; 

wire 

nearlyf ull 

wire 

[4:0] 

V  addr 

; 

wire 

remove; 

assign  er  add  =  | errorbus; 

assign  er_remove  =  ~v_ld_t  &  (v_addr  ==  ' ERROR_DATA) ;  //  removing  data 

on  read  of  error  data  address 
assign  int_req  =  ~empty; 

voter Insyn  #(1)  ld_t_v  (.din(ld_t),  . dout (v_ld_t) , 

. errorbus (errorbus ) ,  .olk(olk),  .rst(rst),  . ID ( ' ER_MO_LD_T_V) ) ; 

voterlnsyn  #(5)  addr_v  (.din (addr),  . dout (v_addr ) , 

. errorbus (errorbus ) ,  .olk(olk),  .rst(rst),  . ID ( ' ER_MO_ADDR_V) ) ; 


always  @ ( * ) 


end 


begin 

ease  (v_addr) 

' ERROR_DATA : 

dout  <=  queue_out; 

' ERROR_HAS_DATA : 

dout  <=  ( 15 'bO, ~empty } ; 
default : 

dout  <=  16 'bO; 

endease 


endmodule 
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H. 


lOTEMPLATE.V 


'timescale  Ins  /  Ips 

'define  MY_MODULE_CTRL_DEC_SYN_ID  10'dl92 
'define  MY_MODULE_DATA_BUS_ID  10'dl93 
'define  MY_MODULE_LD_CE_ID  10'dl94 
'define  MY_MODULE_ADDR_ID  10'dl95 
'define  MY  10  ADDR  5'dO 


module  my_io_module (elk,  rst,  addr,  din,  dout, 

errorbus,  ld_t,  ud_t, 
ld_ce,  ud_ce) ; 

input  elk; 

input  rst; 

input  [14:0]  addr; 
input  [15:0]  din; 
output  [15:0]  dout; 
inout  [15:0]  errorbus; 
input  [2:0]  ld_t; 
input  [2:0]  ud_t; 
input  [2:0]  ld_ce; 
input  [2:0]  ud_ce; 

wire 
wire 

wire  [4:0]  addr ; 

wire  [15:0]  din ; 

wire  [15:0]  dout; 
wor 
wire 
wire 
wire 
wire 

reg  [15:0]  my_sample_reg; 
reg  [15:0]  dout; 

wire  [15:0]  v_d; 

wire  v_ld_ce; 

wire  V  addr; 

voterlnsyn  #(16)  d_v  (.din(d),  .dout(v_d),  . errorbus (errorbus ) , 

.elk (elk),  .rst  (rst),  . ID ( 'MY_MODULE_DATA_BUS_ID)  ) ; 

voterlnsyn  #(1)  ld_ce_v  ( . din (ld_ce) ,  . dout (v_ld_ce) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( 'MY_MODULE_LD_CE_ID)  ) ; 

voterlnsyn  #(1)  addr_v  (.din (addr),  . dout ( v_addr ) ,  . errorbus  (errorbus ) , 

.elk (elk),  .rst  (rst),  . ID ( 'MY_MODULE_ADDR_ID)  ) ; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

my_sample_reg  <=  0; 

end 

else  if  (v_ld_ce)  begin 

if (v_addr  ==  'MY_IO_ADDR)  begin 

my_sample_reg  <=  v_d;  //  load  data  into  the  register 

end 

end 

end 

always  @ (v_addr  or  my_sample_reg)  begin 


elk; 

rst; 


errorbus ; 
ld_t; 
ud_t; 
ld_ce; 
ud  ce; 
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//  output  the  register  contents 


if (v_addr  ==  'MY_IO_ADDR)  begin 
dout  <=  my_sample_reg; 
if  the  correct  address  value 
end 

else  begin 

dout  <=  16 'bO; 

end 

end 

endmodule 


module  iotemplate (elk 
input 
input 

input  [47:0] 

inout  [2:0] 
output  [2:0] 
input  [2:0] 
inout  [47:0] 

inout  [15:0] 


rst,  Ctrl,  ctrlO 
elk; 
rst; 

Ctrl; 

CtrlO; 
int_req; 
sel  ; 

d; 

errorbus ; 


int_req,  sel,  d,  errorbus) ; 


wire 

wire 

wire 

wire 

Select) 


elk; 

rst; 

[47:0]  Ctrl;  // 

[2:0]  sel; 


address  FFOO,  subsequent  IDs 


//  Clock 
//  Reset 

16-bit  memory  control  bus 

//  1-bit  peripheral  select  #  (10  Base 

//  I/O  0  is  at  base 

//  are  each  20h 


higher 


tri 

[47:0] 

d; 

//  16-bit  tri-state 

data 

bus 

wor 

[15:0] 

errorbus ; 

//  16-bit  Global  Error 

Bus, 

wired-OR 

wand 

[2:0] 

CtrlO; 

// 

drive  low  to  insert  10 

wait 

states 

wire 

[2:0] 

int  req; 

//  drive  high  to  enable 

ISR 

wire 

[14:0] 

addr  ; 

// 

5-bit  Peripheral  Address  Space 

wire 

[2:0] 

ud  t; 

//  Active-low  upper 

byte 

data 

bus 

tri 

state 

drive 

enable 

wire 

[2:0] 

-P 

zs' 
1 — 1 

//  Active-low  lower 

byte 

data 

bus 

tri 

state 

drive 

enable 

wire 

[2:0] 

ud  ce; 

// 

Active-high  upper  byte 

valid 

data 

clock 

enable 

wire 

[2:0] 

Id  ce; 

// 

Active-high  lower  byte 

valid 

data 

clock 

enable 

wire 

[47:0] 

dout; 

// 

16-bit  data  bus 

//  declare  the  XSOC  10  Control  modules 
//  each  module  should  be  partitioned  to  avoid 
//  unwanted  optimization  (and  removal  of  the  2  "extra"  copies) 
ctrl_dec_syn  decO ( . elk (elk) ,  .rst(rst),  .ctrl(ctrl),  .sel(sel), 

.ud_t (ud_t [0] )  , 

. ld_t (ld_t [0] ) ,  .ud_ce (ud_ce [0] ) ,  .ld_ce (ld_ce [0] ) , 

. addr (addr [4:0] )  , 

. id ( 'MY_MODULE_CTRL_DEC_SYN_ID) , 

.errorbus  (errorbus) ) ; 

ctrl_dec_syn  decl ( . elk (elk) ,  .rst(rst),  .ctrl(ctrl),  .sel(sel), 

.  ud_t (ud_t [ 1 ] )  , 

. ld_t (ld_t [1 ] ) ,  .ud_ce (ud_ce [1] ) ,  . ld_ce (ld_ce [1 ] ) , 

. addr (addr [9:5] )  , 
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.errorbus (errorbus) ) 
ctrl_dec_syn 
.ud_t (ud_t [2] ) , 

.  addr ( addr [14:10]), 

.errorbus (errorbus)  ) 


. id ( 'MY_MODULE_CTRL_DEC_SYN_ID) , 
dec2 ( . elk (elk) ,  .rst(rst),  .etrl(etrl), 
. ld_t (ld_t [2 ] ) ,  . ud_ee (ud_ee [2 ] ) 

.id ('MY  MODULE  CTRL  DEC  SYN_ID) , 


sel (sel)  , 

.ld_ee (ld_ee [2] ) , 


//  instantiate  your  10  module 
//  also  partition  eaeh  module 

//  note  that  ld_t  and  ud_t  are  used  to  indieate  a  read  from  10 
//  and  ld_oe  and  ud_oe  are  used  to  indieate  a  write 

//  data  in  and  data  out  are  separate  beeause  partitions  do  not  allow  tri¬ 
state  parameters 

//  din  must  be  deelared  as  an  input 

//  generate ....  for  loops  aren't  supported  in  partitions  so  instantiate 
eaeh  explieitly 

my_io_module  my_io_module_0 ( 

.olk(olk),  .rst(rst),  .addr (addr), 

.din(d[15:0] ) ,  . dout (dout [ 1 5 : 0 ] )  , 

. errorbus  (errorbus) , . ld_t (ld_t) ,  . ud_t (ud_t ) , 

. ld_oe (ld_oe) ,  .ud_oe (ud_oe) ) ; 

my_io_module  my_io_module_l ( 

.olk(olk),  .rst(rst),  .addr (addr), 

.din(d[31:16] ),  . dout (dout [ 31 : 1 6 ] ), 

. errorbus (errorbus) , . ld_t (ld_t) ,  . ud_t (ud_t ) , 

. ld_oe (ld_oe) ,  .ud_oe (ud_oe) ) ; 

my_io_module  my_io_module_2 ( 

.olk(olk),  .rst(rst),  .addr (addr), 

.din(d[47:32] ),  . dout (dout [ 47 : 32 ] ), 

. errorbus (errorbus) , . ld_t (ld_t) ,  . ud_t (ud_t ) , 

. ld_oe (ld_oe) ,  .ud  oe(ud_oe)); 


//  Data  bus  writes  are  aeeomplished  here  sinee  partitions 
//  do  not  allow  a  tri-state  bus  interface 


assign  d[7:0] 
assign  d[15:8] 
assign  d[23:16] 
assign  d[31:24] 
assign  d[39:32] 
assign  d[47 : 40] 


Id 

t[0] 

= 

ud 

.t[0] 

=  Id 

t 

[1 

1  ? 

8  'bz 

=  ud 

t 

[1 

1  ? 

8  'bz 

=  Id 

t 

[2 

1  ? 

8  'bz 

=  ud 

t 

[2 

1  ? 

8  'bz 

8'bz  ;  dout [7:0]; 

8 'bz  :  dout [15: 8] ; 
dout  [23:16] ; 
dout [31: 24] ; 
dout  [39: 32] ; 
dout[47:40] ; 


endmodule 


I,  MEMCTRL.V 

'timescale  Ins  /  Ips 
'include  "voterids.v" 

/*  memctrl.v  --  XSOC  memory/on-chip  bus  controller  synthesizable  Verilog  model 

■k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 
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■k 

*  $Header:  /dist/xsocv/memctrl . v  6  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/memctrl . V  $ 

* 

*  6  4/06/00  10:55a  Jan 

*  polish 
*/ 

/*  modified  08/01/2008  by  David  Dwiggins  for  use  with  CFTP  */ 

/*  TMR/ECC  support.  Due  to  extensive  modification  */ 

/*  original  version  by  Jan  Gray  commented  out  at  the  end  of  file  */ 


module  memctrl ( 
elk,  rst, 

mem_ce,  word_nxt,  read_nxt,  dbus_nxt,  dma,  addr_nxt, 

dma_req_in,  zero_req_in, ctrlO, 

rdy,  ud_t,  ld_t,  udlt_t,  dma_req,  zerodma, 

uxd_t,  lxd_t,  store_ub,  store_lb,  read_ub,  write_en, 

sel,  Ctrl,  dma_ack,  errorbus) ; 


parameter 

W 

16; 

// 

word  width 

parameter 

N 

W-1; 

// 

msb  index 

parameter 

XAN 

16; 

// 

external  address  msb  index 

input 

elk; 

// 

global  clock 

input 

rst; 

// 

global  async  reset 

input 

[2: 

0] 

mem  ce; 

// 

memory  access  clock  enable 

input 

[2: 

0] 

word 

nxt;  // 

next  access  is  word  wide 

input 

[2: 

0] 

read 

nxt;  // 

next  access  is  read 

input 

[2: 

0] 

dbus  nxt; 

// 

next  access  uses  on-chip  data  bus 

input 

[2: 

0] 

dma; 

// 

current  access  is  a  DMA  transfer 

input 

[47 

:0] 

addr 

nxt;  // 

address  of  next  memory  access 

input 

[2: 

0] 

dma  req  in; 

input 

[2: 

0] 

zero  req 

in ; 

input 

CtrlO;  // 

control  0  driven  low  =>  add  wait  states 

output 

rdy  ; 

// 

current  memory  access  is  ready 

output 

ud  t; 

// 

active  low  store  data  MSB  output 

enable 

output 

ld_t; 

// 

active  low  store  data  LSB  output 

enable 

output 

udlt  t; 

//  active  low  store  data  MSB->LSB 

output 

enable 

output 

dma  req; 

// 

DMA  request 

output 

zerodma ; 

// 

zero  DMA  counter  request 

output 

store  ub; 

//  ram  store  Isb  into  upper  byte 

(byte  ' 

op) 

output 

store  lb; 

//  ram  store  Isb  into  Isb  (byte 

op) 

output 

read  ub; 

//  ram  read  upper  byte  into  data 

bus  Isb 

output 

write  en; 

//  ram  write  enable 

output 

uxd  t;  // 

RAM 

MSB  data  out  enable 

output 

Ixd  t; 

// 

RAM 

LSB  data  out  enable 

output 

[7: 

0] 

sel  ; 

// 

on- 

chip  peripheral  select 

output 

[15 

:0] 

Ctrl, 

;  // 

abstract  control  bus 

output 

dma  ack; 

// 

DMA  ackwnowledge 

inout 

[15 

:0] 

errorbus ; 

wor  [15:0]  errorbus; 

reg  uxd_t,  lxd_t; 
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selio; 


//  locals 
wire 


wire 

wire 

wire 

wire 

wire 

wire 

wire 

wire 


v_inem_ce; 

V  word  nxt; 

V  read_nxt; 
v_dbus_nxt; 
v_dma ; 

[15:0]  v_addr_nxt; 
v_dma_req_in; 
v_zero  req  in; 


wire 

wire 

wire 

wire 

wire 

wire 


ud_t_nxt; 
ld_t_nxt; 
ud_ce_nxt; 
ld_ce_nxt ; 
rainrd_nxt ; 
ramwr  nxt; 


reg  [4:0] 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

assign 

assign 

assign 

assign 

assign 

assign 

assign 

assign 

assign 

assign 

assign 

assign 

assign 

assign 

assign 


addr;  //  current  access  address 

word;  //  current  access  is  word  wide 

read;  //  current  access  is  read 

io;  //  current  access  is  to  I/O  space 

ramrd;  //  RAM  read  access 

ramwr;  //  RAM  write  access 

wl;  //  byte  write  read  cycle 

w2;  //  byte  write  write  cycle 

read_ub;  //  read  upper  byte  on  next  cycle 


selio  =  v_addr  nxt [15: 8]  ==  8’hFF; 


sel  [0 

]  =  V 

addr 

nxt [7:5 

=  = 

0; 

sel  [1 

]  =  V 

addr 

nxt [7:5 

— 

1; 

sel  [2 

]  =  V 

addr 

nxt [7:5 

2; 

sel  [3 

]  =  V 

addr 

nxt [7:5 

3; 

sel  [4 

]  =  V 

addr 

nxt [7:5 

— 

4; 

sel  [5 

]  =  V 

addr 

nxt [7:5 

5; 

sel  [  6 

]  =  V 

addr 

nxt [7:5 

— 

6; 

sel  [7 

]  =  V 

addr 

nxt [7:5 

7; 

ud  t  : 

nxt 

= 

~  (v  word  nxt 

&  V  read  nxt) ; 

ld_t_: 

nxt 

- 

~v  read 

nxt ; 

ud  ce 

nxt 

- 

V  word  nxt  & 

~v  read  nxt; 

Id  ce 

nxt 

- 

~v  read 

nxt ; 

ramrd 

nxt 

=  V  read  nxt 

&  ~selio  &  V  mem  ce; 

ramwr 

nxt 

=  ~v 

read  nxt 

&  ~selio  &  V  mem  ce 

voterlnsyn  #(1)  mem_ce_v  ( . din (mem_ce ) ,  . dout (v_mem_ce) , 

errorbus  (errorbus ) ,  .elk  (elk),  .rst(rst),  . ID ( { 'MC_MEM_CE_V} ) )  ; 

voterlnsyn  #(1)  word_nxt_v  ( . din (word_nxt ) ,  . dout (v_word_nxt) , 

errorbus  (errorbus ) ,  .elk  (elk),  .rst(rst),  . ID ( { 'MC_WORD_NXT_V} ) )  ; 

voterlnsyn  #(1)  read_nxt_v  ( . din ( read_nxt ) ,  . dout (v_read_nxt) , 

errorbus  (errorbus ) ,  .elk (elk),  .rst(rst),  . ID ( { 'MC_READ_NXT_V} ) )  ; 

voterlnsyn  #(1)  dbus_nxt_v  ( . din (dbus_nxt) ,  . dout (v_dbus_nxt) , 

errorbus  (errorbus ) ,  .elk  (elk),  .rst(rst),  . ID ( { 'MC_DBUS_NXT_V} ) )  ; 

voterlnsyn  #(1)  dma_v  (.din(dma),  . dout (v_dma ) ,  . errorbus  (errorbus ) , 

elk (elk) ,  .rst  (rst) ,  . ID ( { 'MC  DMA  V} ) )  ; 
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voterlnsyn  #(16)  addr_nxt_v  ( . din ( addr_nxt ) ,  . dout (v_addr_nxt) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { 'MC_ADDR_NXT_V} ) ) ; 

voterlnsyn  #(1)  dma_req_in_v  ( . din (dma_req_in) ,  . dout (v_dina_req_in) , 

. errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( { 'MC_DMA_REQ_IN_V} ) ) ; 

voterlnsyn  #(1)  zero_req_in_v  ( . din ( zero_req_in ) , 

.dout (v_zero_req_in) ,  . errorbus  (errorbus ) ,  .clk(clk),  .rst(rst), 

. ID  ( {  'MC_ZERO_REQ_IN_V} )  )  ; 

assign  rdy  =  (io&ctrl[0])  |  ramrd  |  (ramwr  &  word)  |  w2; 

assign  Ctrl  =  {4'bO,  ud_t_nxt,  ld_t_nxt,  ud_ce_nxt,  ld_ce_nxt, 

v_inem_ce,  selio,  addr[4;0],  ctrlO}; 
//  ctrl[0]  pullup? 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

addr  <=  0 ; 
word  <=  1 ; 
read  <=  1 ; 
io  <=  0; 
ramrd  <=  1; 
ramwr  <=  0; 
wl  <=  0; 
w2  <=  0 ; 
uxd_t  <=  1 ; 
lxd_t  <=  1; 
read_ub  <=0 ; 

end 

else  begin 

if  (v_mem_ce)  begin 

addr  <=  v_addr_nxt [4:0] ; 
word  <=  V  word  nxt; 
read  <=  v_read_nxt; 
io  <=  selio; 

read_ub  <=  v_read_nxt  &  ~selio  &  ~v_addr_nxt [ 0 ]  & 

~v  word  nxt; 

ramrd  <=  v_read_nxt  &  ~ selio; 

ramwr  <=  ~v_read_nxt  &  ~selio; 

uxd_t  <=  ~ (v_read_nxt  &  v_dbus_nxt  &  ~selio  & 

V  word  nxt) ; 

lxd_t  <=  ~ (v_read_nxt  &  v_dbus_nxt  &  ~selio) ; 

end 

wl  <=  ~v_read_nxt  &  ~selio  &  v_mem_ce  &  ~v_word_nxt; 
w2  <=  wl; 

end 

end 

//  assign  store_ub  =  ramwr_nxt  &  ~addr_nxt[0]  &  ~word_nxt;  //  store 
upper  byte  mux  control 

assign  store_ub  =  ramwr  &  ~addr[0]  &  ~word;  //  store  upper  byte  mux 
control 

assign  store_lb  =  ramwr  &  addr[0]  &  ~word;  //  store  lower  byte  mux 
control 


//assign  write_en_u  =  ramwr_nxt  &  (word  nxt  |  (~word  nxt  & 

~addr_nxt [ 0 ] ) ) ;  //  write  upper  byte  if  word  or  storing  to  high  byte 

//assign  write_en_l  =  ramwr_nxt  &  (word_nxt  |  (~word_nxt  &  addr_nxt [ 0 ] ) ) 
//  write  lower  byte  if  word  or  storing  to  low  byte 

assign  write_en  =  (ramwr_nxt  &  v_word  nxt  &  v  mem  ce)  |  wl;  //  write 
upper  byte  if  word  or  storing  to  high  byte 
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assign  udlt_t =  1;  //  not  needed  with  16-bit  memory 

assign  ld_t  =  read; 

assign  ud_t  =  read; 

assign  dma_req  =  v_dma_req_in; 

assign  zerodma  =  v  zero  req  in; 

assign  dma_ack  =  v_dma  &  rdy; 

endmodule 

module  ctrl_dec_syn (elk,  rst,  Ctrl,  sel,  ud_t,  ld_t,  ud_ce,  ld_ce,  addr, 
errorbus,  id) ; 


input 

elk; 

//  global  clock 

input 

rst; 

//  global  async  reset 

input 

[47:0] 

Ctrl; 

// 

abstract  control  bus 

input 

[2:0] 

sel  ; 

//  peripheral  select 

output 

ud  t; 

//  active  low  read  data 

MSB  output 

enable 

output 

-P 

p' 

1 — 1 

//  active  low  read  data 

LSB  output 

enable 

output 

ud  ce; 

//  write  data  MSB  clock 

enable 

output 

Id  ce; 

//  write  data  LSB  clock 

enable 

output 

[4:0] 

addr  ; 

// 

current  I/O  control  register  address 

input 

[9:0] 

id; 

// 

syndrome  ID 

inout 

[15:0] 

errorbus;  // 

global  syndrome  bus 

reg 

ud_ 

t.  Id  t,  ud  ce.  Id  ce; 

wor 

[15:0] 

errorbus ; 

//  locals 

wire 

ud  t  nxt.  Id 

t  nxt,  ud  ce  nxt.  Id  ce  nxt,  mem  ce,  selio 

wire  [4 

1:0] 

addr  ; 

wire 

[15:0] 

V  Ctrl 

wire 

V  sel ; 

voterlnsyn  #(16)  ctrl_v  (.din (Ctrl),  . dout (v_ctrl ) ,  . errorbus  (errorbus ) , 

.clk(clk),  .rst(rst),  .ID(id)); 

voterlnsyn  #(1)  sel_v  (.din (sel),  . dout (v_sel ) ,  . errorbus (errorbus ) , 

.clk(clk),  .rst(rst),  .ID(id)); 

assign  {  ud_t_nxt,  ld_t_nxt,  ud_ce_nxt,  ld_ce_nxt,  mem_ce,  selio,  addr  } 

=  v_ctrl [11:1] ; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

ud_ce  <=  0; 

ld_ce  <=  0; 

ud_t  <=  1 ; 
ld_t  <=  1; 

end 

else  if  (mem_ce)  begin 

ud_ce  <=  v_sel  &  selio  &  ud_ce_nxt; 

ld_ce  <=  v_sel  &  selio  &  ld_ce_nxt; 

ud_t  <=  ~ (v_sel  &  selio  &  ~ud_t_nxt) ; 
ld_t  <=  ~ (v_sel  &  selio  &  ~ld_t_nxt) ; 

end 

end 


endmodule 
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//  original  version  as  per  Jan  Gray  below 

/*  memctrl.v  --  XSOC  memory/on-chip  bus  controller  synthesizable  Verilog  model 

•k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

•k 

*  $Header;  /dist/xsocv/memctrl . v  6  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/memctrl . V  $ 

* 

*  6  4/06/00  10:55a  Jan 

*  polish 

module  memctrl ( 
elk,  rst. 


mem  ce,  word  nxt. 

read  nxt,  dbus 

nxt 

,  dma,  addr  nxt. 

dma  req  in,  zero 

req  in. 

rdy,  ud  t.  Id  t. 

udlt  t. 

int  req. 

dma  req,  zerodma. 

ram  oe  n,  ram  we 

n,  xa  0, 

xdout  t 

,  uxd  t,  Ixd  t. 

sel,  Ctrl,  dma  ack) ; 

parameter 

W 

=  16; 

// 

word  width 

parameter 

N 

=  W-1; 

// 

msb  index 

parameter 

XAN 

=  16; 

// 

external  address  msb  index 

input 

elk; 

// 

global  clock 

input 

rst; 

// 

global  async  reset 

input 

mem  ce; 

//  memory  access  clock  enable 

input 

word 

nxt; 

// 

next  access  is  word  wide 

input 

read 

nxt; 

// 

next  access  is  read 

input 

dbus 

nxt; 

// 

next  access  uses  on-chip  data  bus 

input 

dma; 

// 

current  access  is  a  DMA  transfer 

input  [N:0]  addr_nxt;  //  address  of  next  memory  access 


input 

dma  req  in; 

input 

zero  req 

in  ; 

output 

rdy  ; 

// 

current  memory  access  is  ready 

output 

ud  t; 

// 

active  low  store  data  MSB  output 

enable 

output 

ld_t; 

// 

active  low  store  data  LSB  output 

enable 

output 

udlt  t; 

//  active  low  store  data  MSB->LSB 

output 

enable 

output 

int  req; 

// 

interrupt  request 

output 

dma  req; 

// 

DMA  request 

output 

zerodma ; 

// 

zero  DMA  counter  request 

output 

ram  oe  n; 

// 

active  low  external  RAM  output  enable 

output 

ram  we  n; 

// 

active  low  external  RAM  write  enable 

output 

xa  0; 

// 

external  RAM  address  Isb 

output 

xdout  t; 

// 

active  low  external  RAM  data  output 

enable 

output 

uxd  t; 

// 

active  low  external  RAM  MSB  input 

output 

en 

output 

Ixd  t; 

// 

active  low  external  RAM  LSB  input 

output 

en 

output 

[7:0] 

sel  ; 

// 

on-chip  peripheral  select 

output 

[15:0] 

Ctrl; 

// 

abstract  control  bus 

output 

dma  ack; 

// 

DMA  ackwnowledge 

reg 


uxd_t,  lxd_t; 

no 


//  locals 

wire  selio  =  addr_nxt [ 15 : 8 ]  ==  8'hFF; 

assign  sel[0]  =  addr_nxt [ 7 : 5 ]  ==  0; 

assign  sel[l]  =  addr_nxt [7 : 5]  ==  1; 

assign  sel[2]  =  addr_nxt [ 7 ; 5 ]  ==  2; 

assign  sel[3]  =  addr_nxt [7 : 5]  ==  3; 

assign  sel[4]  =  addr_nxt [ 7 : 5 ]  ==  4; 

assign  sel[5]  =  addr_nxt [ 7 : 5 ]  ==  5; 

assign  sel[6]  =  addr_nxt [7 : 5]  ==  6; 

assign  sel[7]  =  addr_nxt [ 7 : 5 ]  ==  7; 

wire  ud_t_nxt  =  ~ (word_nxt  &  read_nxt) ; 

wire  ld_t_nxt  =  ~read_nxt; 

wire  ud  ce_nxt  =  word  nxt  &  ~read  nxt; 

wire  ld_ce_nxt  =  ~read_nxt; 

reg  [4:0]  addr;  //  current  access  address 

reg  word;  //  current  access  is  word  wide 

reg  read;  //  current  access  is  read 

reg  io;  //  current  access  is  to  I/O  space 


//  memory  / 

reg 

reg 

reg 

reg 

reg 

reg 

and  W4,  W5 
reg 


I/O  access  FSM 

ramrd;  // 
ramwr ;  /  / 
wl2;  // 
w34;  // 

w56 ;  // 

w23_45; 

w4  5 ;  // 


RAM  read  access 
RAM  write  access 
RAM  write  half-clock 
RAM  write  half-clock 
RAM  write  half-clock 
//  RAM  write  half 

RAM  write  half-clock 


states  Wl,  W2 
states  W3,  W4 
states  W5,  W6 
-clock  states  W2,  W3, 

states  W4,  W5 


assign  rdy  =  (io&ctrl[0])  |  ramrd  |  (w34&~word)  |  w56; 

assign  Ctrl  =  {4'bO,  ud_t_nxt,  ld_t_nxt,  ud_ce_nxt,  ld_ce_nxt, 

mem_ce,  selio,  addr [4:0],  I'bl}; 
//  ctrl[0]  pullup? 


always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

addr  <=  0 ; 
word  <=  1 ; 
read  <=  1 ; 
io  <=  0; 
ramrd  <=  1; 
ramwr  <=  0; 
wl2  <=  0; 
w34  <=  0; 
w56  <=  0; 
uxd_t  <=  1 ; 
lxd_t  <=  1; 

end 

else  begin 

if  (mem_ce)  begin 

addr  <=  addr_nxt [ 4 : 0 ] ; 
word  <=  word_nxt; 
read  <=  read_nxt; 
io  <=  selio; 

ramrd  <=  read_nxt  &  ~selio; 
ramwr  <=  ~read_nxt  &  ~selio; 

uxd_t  <=  ~(read_nxt  &  dbus_nxt  &  ~selio  &  word_nxt) ; 
lxd_t  <=  ~(read_nxt  &  dbus_nxt  &  ~selio) ; 

end 

wl2  <=  ~read_nxt  &  ~selio  &  mem_ce; 
w34  <=  wl2; 
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w56 

<  = 

w34  &  word; 

end 

end 

always 

@  (negedge 

elk 

or  posedge  rst) 

begin 

if  (rst)  begin 

w23 

4  5 

<=  0; 

w45 

<- 

0; 

end 

else  begin 

w23 

4  5 

<=  wl2  1  (w34  &  word) ; 

w45 

<- 

w34  &  word; 

end 

end 

assign 

xdout  t 

=  ~ (w23_45  1  w56) 

• 

assign 

ram  we  n 

=  ~ (w23  45  &  ~w34) ; 

assign 

ram  oe  n 

=  ramwr; 

assign 

xa  0 

=  word  ?  ~ (ramwr 

?  (w45 1 w56 i 

assign 

udlt  t  =  ~ 

((w45|w56)  &  ~read) ; 

assign 

ld_t 

=  ~ (~ (w45 1 w56 )  & 

~read) ; 

assign 

ud  t 

=  read; 

assign 

dma  req 

=  dma  req  in; 

assign 

zerodma 

=  zero  req  in; 

assign 

dma  ack 

=  dma  &  rdy; 

assign 

int  req 

=  0; 

:  elk)  :  addr[0] 


endmodule 


//  Ctrl  dec  --  XSOC  abstract  control  bus  decoder 


module 

Ctrl  dec (elk,  rst. 

Ctrl, 

sel. 

ud  t. 

id  t,  ud  ce,  id  ce,  addr) ; 

input 

elk; 

// 

global  clock 

input 

rst; 

// 

global  async  reset 

input 

[15:0]  Ctrl; 

// 

abstract  control  bus 

input 

sel  ; 

// 

peripheral  select 

output 

ud  t; 

// 

active  low  read  data 

MSB  output 

enable 

output 

ld_t; 

// 

active  low  read  data 

LSB  output 

enable 

output 

ud  ce, 

// 

write  data  MSB  clock 

enable 

output 

id  ce, 

// 

write  data  LSB  clock 

enable 

output 

[4:0]  addr; 

// 

current  I/O  control  register  address 

reg 

ud 

t,  id 

t,  ud  ce.  Id  ce; 

//  locals 

wire 

ud  t 

nxt,  id 

t  nxt,  ud 

ce  nxt.  Id  ce  nxt,  mem  ce,  selio; 

wire  [4 

:0]  addr; 

assign 

(  ud  t  nxt. 

id  t  nxt. 

ud  ce  nxt,  id  ce  nxt,  mem  ce 

,  selio,  addr 

=  ctrl[ll:i; 

1 ; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

ud_ce  <=  0; 
ld_ce  <=  0; 
ud_t  <=  1 ; 
ld_t  <=  1; 

end 

else  if  (mem_ce)  begin 

ud_ce  <=  sel  &  selio  &  ud_ce_nxt; 
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end 


end 


ld_ce  <=  sel  &  selio  &  ld_ce_nxt; 
ud_t  <=  ~(sel  &  selio  &  ~ud_t_nxt) ; 
Id  t  <=  ~(sel  &  selio  &  ~ld  t  nxt) ; 


endmodule 

*/ 


J,  MEMIO.V 

'timescale  ins  /  Ips 

module  memio(sub,  sib,  rub,  din,  eccdout,  mem_out,  xd,  eccdin,  syndrome); 
input  sub;  //  store  upper  byte 

input  sib;  //  store  lower  byte 

input  rub;  //  read  upper  byte 

input  [15:0]  din;  //  MDR  input 

input  [21:0]  eccdout; 

output  [15:0]  mem_out;  //  CPU  data  bus 

output  [15:0]  xd;  //  external  data  bus  to  instruction  register 

output  [21:0]  eccdin; 

output  [5:0]  syndrome; 

wire  [7:0]  datainusb, datainlsb; 

wire  [7:0]  dataoutusb,  dataoutlsb; 

wire  [15:0]  decodeout; 

eccencode  eccencodel  ( .din ( [datainusb, datainlsb} ) ,  .dout (eccdin) ) ; 
eccdecode  eccdecodel  (. din (eccdout) , 

.dout (decodeout) , . syndrome (syndrome) ) ; 

assign  xd[15:0]  =  decodeout [ 1 5 : 0 ] ; 

//  data  in  is  input  into  the  registers  at  the  BRAM  interface  and  is  not 
clocked 

assign  datainlsb  =  sub  ?  decodeout [7 : 0]  :  din[7:0]; 

assign  datainusb  =  sib  ?  decodeout [ 15 : 8 ]  :  (sub  ?  din[7:0]  :  din[15:8]); 

//  data  out  of  the  memory  is  on  the  next  clock  cycle;  output  control 
signals  should  be  registered 

/ /  for  proper  operation 

assign  dataoutlsb  =  rub  ?  decodeout [ 1 5 : 8 ]  :  decodeout [7 : 0] ; 

assign  dataoutusb  =  decodeout [15: 8] ; 

assign  mem_out [ 15 : 0 ]  =  [ dataoutusb [ 7 : 0 ], dataoutlsb [ 7 : 0 ]} ; 
endmodule 


K.  PC104QUEUE.V 

'timescale  ins  /  ips 
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//  Created  08/01/2008  by  David  Dwiggins  Jr 
//  synthetic  RAM  created  for  pc/104  output  queue 
//  created  to  avoid  using  distributed  RAM  elements 
//  synchronous  write,  async  read 
//  byte  wide  16  entries 

module  qram_8xl6 (elk,  rst,  readaddr,  writeaddr,  we,  din,  dout) ; 
input  elk; 

input  rst; 

input  [3:0]  readaddr;  //  Read  address 

input  [3:0]  writeaddr;  //  Write  address 

input  we;  //  Write  enable 

input  [7:0]  din;  //  Data  in 

output  [7:0]  dout;  //  Data  out 

wire  [15:0]  readdrive;  //  output  enables  on  each  entry 

wire  [15:0]  writedrive; 

wire  [15:0]  writeendrive;  //  write  enables  for  entries 

decodei  read_decode (. din (readaddr ) ,  . dout (readdrive) ) ; 

decodei  write_decode ( .din (writeaddr) ,  . dout (writedrive) ) ; 

assign  writeendrive  =  we  ?  writedrive  :  16 'bO; 

genvar  i; 

generate  for  (i=0;  i<16;  i=i+l)  begin:  myram_loop 
//  instantiate  each  queue  slot 

qd8  loop_d8 ( . elk (elk) ,  . ce (writeendrive [i ]) ,  .clr(rst),  .din(din), 

. ddrive (readdrive [i ] ) , . dout (dout) ) ; 
end 

endgenerate 

endmodule 

//  qd8  -  8  bit  D  positive  edge-clocked  flip  flop 
module  qd8(clk,  ce,  clr,  din,  ddrive,  dout) ; 
input  elk; 


input 

input 

input 

[7:0] 

din  ; 

ce; 
clr  ; 

input 

output 

[7:0] 

dout; 

ddrive 

reg 

[7:0] 

data; 

tri 

[7:0] 

dout; 

always  @ (posedge  elk  or  posedge  clr)  begin 
if  (clr) 

data  <=  0; 
else  if  (ce) 

data  <=  din; 

end 

assign  dout  =  (ddrive)  ?  data  :  8'bz; 
endmodule 

//  PC104  Interface  Output  Queue 
//  16-entry  queue 

//  Separate  clock  domains  on  read  and  write 

//  Shared  variable  remove  request,  set  on  remove  clock  positive  edge  and  cleared 
//  on  read  process  by  system  clock 
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//  Shared  variable  implemented  with  a  flip-flop  with  an  async  clear 

//  queue  is  not  write-through,  must  have  a  read  for  first  data  to  appear  on 

output 


elk,  rst,  add,  remove,  dout, 

empty,  nearlyfull,  full. 


module  pcl04queue_8xl6 (din 

remove_clk) ; 
input  [23:0] 
input 
input 

input  [2:0] 
input  [2:0] 
remove_clk  clocked 
output  [7:0] 
output 

output 
in  queue 
output 
input 

signal 

wire  [7:0] 
reg  [4:0] 
reg  [3:0] 
reg  [3:0] 
reg 
reg 

process 

reg  [7:0] 
wire 


din  ; 

elk; 

rst; 

add; 

remove; 

dout; 

empty; 

nearlyfull  ; 

full; 

remove  elk; 


queue_data; 
count; 
first; 
store  nxt; 

remove_state0 ; 
remove  statel; 


dout; 

clocked  remove; 


//  Queue  data  in 

//  System  clock 
//  Global  Reset 
//  Add  request 
//  Remove  request, 

//  Queue  data  out 
//  1  if  empty 

//  1  if  15  entries 

//  1  if  full 
//  Clock  for  remove 


//  no  remove  pending 
//  just  got  a  remove. 


wire  we;  /  / 

queue  memory  write  enable 


wire 

wire 

wire  [7:0] 

wire 

wire 


countisone; 
nearlyfull  ; 

v_din ; 

v_add; 

V  remove; 


voter In  #(8)  din_v  (.din (din),  . dout (v_din ) ) ; 
voterln  #(1)  add_v  (.din (add),  . dout (v_add) ) ; 
voterln  #(1)  remove_v  (. din ( remove ) ,  . dout (v_remove) ) ; 


assign  empty  =  ~(|count);  //  empty  if  no  count  bits 

set 

assign  nearlyfull  =  &  (count [ 3 : 0 ] ) ;  //  15  =  last  4  bits  all  on 

assign  full  =  count [4];  //  16  =  bit  5  on 

qram_8xl6  rami (. elk (elk) ,  .rst(rst),  . readaddr ( first) , 

.writeaddr (store_nxt) ,  .we (we),  .din(v_din),  . dout (queue_data ) ) ; 

assign  we  =  v_add  &  ~  (full) ; 

FDC  read_request  ( . Q ( clocked_remove ) , 

. C (remove_clk) , 
.CLR(remove_statel) , 

. D ( v_remove ) ) ; 


always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 
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count<=0; 
f ir st<=0 ; 
store_nxt<=0 ; 
remove_stateO  <=  1; 
remove_statel  <=  0; 
dout  <=  0; 

end 

else  begin 

//  got  a  remove,  process 

if  (clocked_remove  &  remove_stateO )  begin 
remove_stateO  <=  0; 
remove_statel  <=  1; 

end 

//  clearing  the  read  FF 
if  (remove_statel )  begin 
remove_statel  <=  0; 
remove_stateO  <=  1; 

end 


//  add 

if  (  (v_add  &  ~clock;ed_remove)  |  (v_add  &  clock;ed_remove 
~remove_stateO) )  begin 

if  (~full)  begin 

count<=count+l ; 
store_nxt<=store_nxt+l ; 

end 

end 

//  remove 

else  if  (~v_add  &  clocked_remove  &  remove_stateO)  begin 

if (empty)  begin 
dout  <=  0; 

end 

else  begin 

count<=count-l  ; 
first <=first+l; 
dout  <=  queue_data; 

end 

end 

//  add  &  remove 

else  if  (v_add  &  clocked_remove  &  remove_state0 )  begin 

if (empty)  begin 

count<=count+l ; 
store_nxt<=store_nxt+l  ; 
dout  <=  0; 

end 

else  if  (full)  begin 
count<=count-l  ; 
first <=first+l; 
dout  <=  queue_data; 

end 

else  begin 

store_nxt<=store_nxt+l ; 
first <=first+l; 
dout  <=  queue_data; 

end 

end 


end 


end 


& 


endmodule 
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L 


PCFILE.V 


'timescale  Ins  /  Ips 

module  dl 6xlout (elk,  ce,  clr,  din,  dout) ; 
input  elk; 
input  ce; 
input  clr; 
input  [15:0]  din; 
output  [15:0]  dout; 

reg  [15:0]  dout; 

always  @ (posedge  elk)  begin 
if  (clr) 

dout  <=  0; 

else 

if  (ce) 
dout  <=  din; 

end 


endmodule 


module  pc file  (elk, rst, we, addr , din, adout ) ; 
input  elk; 
input  rst; 
input  we; 
input  addr; 
input  [15:0]  din; 
output  [15:0]  adout; 

wire  [15:0]  regOout; 

wire  [15:0]  reglout; 
wire  regOload; 
wire  reglload; 

assign  regOload  =  we  &  ~addr; 
assign  reglload  =  we  &  addr; 


dlOxlout  regO ( . elk (elk) ,  . ce ( regOload) , 

.dout (regOout) ) ; 

dlOxlout  regl ( . elk (elk) ,  . ce (reglload) , 

.dout (reglout)  )  ; 


. clr (rst) , 
. clr (rst) , 


.din (din) 
.din (din) 


assign  adout  =  addr  ?  reglout  :  regOout; 


endmodule 


M.  QUEUEl.V 

'include  "voterids.v" 
'timescale  Ins  /  Ips 
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module  ram_16x8 (elk,  rst,  readaddr,  writeaddr,  we,  din,  dout) ; 
input  elk; 
input  rst; 

input  [2:0]  readaddr; 
input  [2:0]  writeaddr; 
input  we; 
input  [15:0]  din; 
output  [15:0]  dout; 

wire  [15:0]  readdrive; 

wire  [15:0]  writedrive; 

wire  [15:0]  writeendrive ; 

deoode4  read_deoode ( . din ( { 1 'bO, readaddr } ) ,  . dout (readdrive [7:0])); 

deoode4  write_deoode ( .din ( { 1 'bO, writeaddr } ) ,  .dout (writedrive [7:0])) 

assign  writeendrive  =  we  ?  writedrive  :  8'bO; 

genvar  i; 

generate  for  (i=0;  i<8;  i=i+l)  begin:  myram_loop 

dl6  loop_dl 6 ( . elk (elk) ,  . ee (writeendrive [i] ) ,  .olr(rst), 

.din (din) ,  .ddrive (readdrive [i] ) , .dout (dout) ) ; 
end 

endgenerate 

endmodule 

module  dl6(clk,  ce,  clr,  din,  ddrive,  dout) ; 
input  elk; 
input  ce; 
input  clr; 
input  [15:0]  din; 
input  ddrive; 
output  [15:0]  dout; 

reg  [15:0]  data; 
tri  [15:0]  dout; 

always  @ (posedge  elk  or  posedge  clr)  begin 
if  (clr) 

data  <=  0; 
else  if  (ce) 

data  <=  din; 

end 

assign  dout  =  (ddrive)  ?  data  :  16 'bz; 
endmodule 

module  queue_16x8 (din,  elk,  rst,  add,  remove,  dout,  empty,  nearlyfull,  full 
errorbus ) ; 

input  [15:0]  din; 


input  elk; 

input  rst; 

input  [2:0]  add; 

input  [2:0]  remove; 
output  [15:0]  dout; 
output  empty; 

output  nearlyfull; 

output  full; 


inout  [15:0]  errorbus; 
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wire  [15:0]  queue 

reg  [3:0] 
reg  [2:0] 
reg  [2:0] 

wire  [15:0]  dout; 
reg 

wor  [15:0] 

wire 

wire 

wire 

wire 

wire 


data; 

count; 
first; 
store  nxt; 

outputdata_nxt; 
errorbus ; 
we; 

countisone; 
nearlyf ull ; 

v_add; 

V  remove; 


assign  empty  =  ~ ( | count) ; 
assign  countisone  =  (count==l); 
assign  nearlyfull  =  & ( count [ 2 : 0 ] ) ; 
assign  full  =  count[3]; 


ram_16x8  rami (. elk (elk) ,  .rst(rst),  . readaddr ( f ir st ) , 
writeaddr ( store_nxt) ,  .we (we),  .din (din),  . dout (queue_data ) ) ; 


voterlnsyn  #(1)  add_v  (.din (add),  . dout (v_add) ,  . errorbus  (errorbus ) , 

elk (elk),  .rst(rst),  . ID ( ' ER_QU_ADD_V) ) ; 

voterlnsyn  #(1)  remove_v  (. din ( remove ) ,  . dout (v_remove) , 

errorbus  (errorbus) ,  .clk(clk),  .rst(rst),  .ID('ER  QU_REM  V) ) ; 


assign  we  =  v_add  &  ~ (full) ; 

assign  dout  =  outputdata_nxt  ?  queue_data  :  8'bO; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

count<=0; 
f ir st<=0 ; 
store_nxt<=0  ; 
outputdata_nxt<=0 ; 

end 

else  begin 

//  add 

if  (v_add  &  ~v_remove)  begin 
if (empty)  begin 

count<=count+l ; 
store_nxt<=store_nxt+l  ; 
outputdata_nxt<=l ; 

end 

else  if  (~full)  begin 
count<=count+l ; 
store_nxt<=store_nxt+l ; 

end 

end 

//  remove 

else  if  (~v_add  &  v_remove)  begin 
if  (~empty)  begin 

if  (countisone)  begin 

outputdata_nxt<=0 ; 
count<=count-l ; 
first <=first+l; 

end 

else  begin 

count<=count-l  ; 
first <=first+l; 
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end 


end 


end 


end 


end 

//  add  &  remove 

else  if  (v_add  &  v_remove)  begin 

if (empty)  begin  //  only  add 
count<=count+l ; 
store_nxt<=store_nxt+l ; 
outputdata_nxt<=l ; 

end 

else  if  (full)  begin  //  only  remove 
count<=count-l ; 
first<=first+l; 

end 

else  begin 

store_nxt<=store_nxt+l ; 
first<=first+l; 

end 

end 


endmodule 


N.  REGISTER16X16.V 

'timescale  ins  /  Ips 

module  zerox2out (adrive,  bdrive,  aout,  bout) ; 
input  adrive; 
input  bdrive; 
output  [15:0]  aout, bout; 

tri  [15:0]  aout, bout; 

assign  aout  =  (adrive)  ?  16 'bO  :  16 'bz; 
assign  bout  =  (bdrive)  ?  16 'bO  :  16 'bz; 

endmodule 

module  dl 6x2out (elk,  ce,  clr,  din,  adrive,  bdrive,  aout,  bout) ; 
input  elk; 
input  ce; 
input  clr; 
input  [15:0]  din; 
input  adrive; 
input  bdrive; 
output  [15:0]  aout, bout; 

reg  [15:0]  dout; 
tri  [15:0]  aout, bout; 


always  @ (posedge  elk  or  posedge  clr)  begin 
if  (clr) 

dout  <=  0; 
else  if  (ce) 

dout  <=  din; 

end 

assign  aout  =  (adrive)  ?  dout  :  16 'bz; 
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assign  bout  =  (bdrive)  ?  dout  :  16 'bz; 


endmodule 


module  decodei (din,  dout) ; 
input  [3:0]  din; 
output  [15:0]  dout; 

reg  [15:0]  dout; 


always  @ (din)  begin 


end 

endmodule 


case  (din) 

4  'hO 
4  'hi 
4  'h2 
4  'h3 
4  'h4 
4  'h5 
4  'h6 
4  'h7 
4  'h8 
4  'h9 
4  'hA 
4  'hB 
4  'hC 
4  'hD 
4  'hE 
4  'hF 
endcase 


dout 

<  = 

16 'hOOOl 

dout 

<- 

16  'h0002 

dout 

<- 

16 'h0004 

dout 

<- 

16 'h0008 

dout 

<- 

16 'hOOlO 

dout 

<- 

16 'h0020 

dout 

<- 

16 'h0040 

dout 

<- 

16 'h0080 

dout 

<- 

16 'hOlOO 

dout 

<- 

16  'h0200 

dout 

<- 

16 'h0400 

dout 

<- 

16  'h0800 

dout 

<- 

16 'hlOOO 

dout 

<- 

16 'h2000 

dout 

<- 

16 'h4000 

dout 

<  = 

16 'h8000 

module  register 16x1 6 (elk, rst, we, addra, addrb, addrw, din, adout, bdout ) 
input  elk; 
input  rst; 
input  we; 

input  [3:0]  addra, addrb, addrw; 

input  [15:0]  din; 

output  [15:0]  adout, bdout; 


wire  [15:0]  adrive, bdrive ; 
wire  [15:0]  wdecode; 
wire  [15:0]  regwrite; 

genvar  i; 


decode4  rega_decode (addra, adrive) ; 
decode4  regb_decode (addrb, bdrive) ; 
decode4  regw_decode (addrw, wdecode) ; 

assign  regwrite  =  we  ?  wdecode  :  16 'bO; 

zerox2out  zeroO (adrive [ 0 ] ,  bdrive [0],  adout,  bdout); 

generate  for  (i=l ; i<l 6 ; i=i+l )  begin:  regg_loop 

dl6x2out  regO  (elk,  regwrite [i],  rst,  din,  adrive [i], 
adout,  bdout) ; 
end 

endgenerate 


bdrive  [i ] , 
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endmodule 


O.  SELECTMAP  CONFIG_XSOC.V 

'timescale  Ins  /  Ips 
'include  "voterids.v" 

'define  SELECTMAP_CF_REQUEST  5'hOO 

'define  SELECTMAP_CF_FLASH_BASE_LOW  5'h02 

'define  SELECTMAP_CF_FLASH_BASE_HIGH  5'h04 

'define  SELECTMAP_CF_STATUS  5'h06 

//  change  the  next  line  to  voterlnsyn  to  reenable  error  bus  reporting 

//  on  this  module 

'define  SMC_VOTER  voter Insynh 

module  selectmap_config_xsoc_mod (elk,  rst,  ld_t,  ld_ce,  addr, 

d,  dout,  errorbus, 

T_SELECTMAP_INIT_o,  T_SELECTMAP_WRITE_o, 

T_S  ELECTMAP_C  S_0 ,  T_S  ELECTMAP_DATA_o , 
T_FLASH_DATA_i,  T_FLASH_ADDRESS_0 , 

SM  CONFIG  STATUS_o) ; 


input 

elk; 

input 

rst; 

input 

[2:0] 

ld_t; 

input 

[2:0] 

Id  ce; 

input 

[14:0] 

addr  ; 

input 

[47:0] 

d; 

output 

dout; 

inout 

[15:0] 

errorbus ; 

output 

T  SELECTMAP  INIT  o; 

output 

T  SELECTMAP  WRITE  o 

output 

T  SELECTMAP  CS  o; 

output 

[7:0] 

T  SELECTMAP  DATA  o; 

input 

[15:0] 

T  FLASH  DATA  i; 

output [21:0] 

T  FLASH  ADDRESS  o; 

output 

SM  CONFIG  STATUS  o; 

wor  [15:0]  errorbus; 

reg  dout; 

reg  [4:0]  flashhi;  //  high  word  flash  base 

reg  [15:0]  flashlo;  //  low  word  flash  base 

reg  conf  req; //  configure  request 

wire  [15:0]  v_d;  //  voted  data  bus 

wire  [4:0]  v_addr;  //  voted  address 

wire  v_ld_ce; 

wire  v_ld  t; 

wire  SM  CONFIG  STATUS  o; 


' SMC_VOTER  #(16)  d_v  (.din(d),  .dout(v_d),  . errorbus  (errorbus ) , 
.clk(clk),  .rst(rst),  . ID ( ' SMC_D) ) ; 

' SMC_VOTER  #(5)  addr_v  (.din (addr),  . dout (v_addr ) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  .ID('SMC  ADDR) ) ; 
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' SMC_VOTER  #(1)  ld_t_v  ( . din (ld_t) ,  . dout (v_ld_t) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( ' SMC_LD_T) ) ; 

' SMC_VOTER  #(1)  ld_ce_v  ( .din (ld_ce) ,  . dout (v_ld_ce) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( ' SMC_LD_CE) ) ; 


always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

begin 

flashhi  <=  0; 
flashlo  <=  0; 
conf_req  <=  0; 

end 

else  begin 

//  I  got  your  request,  working  on  it,  clear  request 
if  (SM_CONFIG_STATUS_o  &  conf_req) 
begin 

conf_req  <=  I'bO; 

end 

//  writing,  addr  0  =  low  flash  base,  addr  2  =  high  flash 
base,  addr  4  =  conf  request 

if  (v_ld_ce) 
begin 

if  (v_addr==' SELECTMAP_CF_FLASH_BASE_LOW) 
begin 

flashlo  <=  v_d[15 : 0] ; 

end 

else  if 

(v_addr== ' SELECTMAP_CF_FLASH_BASE_HIGH) 

begin 

flashhi  <=  v_d[4:0]; 

end 

else  if  (v_addr=='SELECTMAP_CF_REQUEST) 
begin 

conf_req  <=  I'bl; 

end 

end 

else  if  (v_ld_t) 
begin 

if (v_addr=='SELECTMAP_CF_STATUS)  begin 
dout  <=  SM_CONFIG_STATUS_o; 

end 

end 


end 


end 


selectmap_conf ig  selectmap_configO (  . T_CLOCK_i (elk) , 

. RESET_i (rst) , 

.T_SELECTMAP_INIT_o (T_SELECTMAP_INIT_o) , 
.T_SELECTMAP_WRITE_o ( T_SELECTMAP_WRITE_o ) , 

. T_SELECTMAP_CS_0 (T_SELECTMAP_CS_o) , 

. T_SELECTMAP_DATA_o (T_SELECTMAP_DATA_o) , 

.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 
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.T_FLASH_ADDRESS_0 (T_FLASH_ADDRESS_o) , 

.  SM_CONFIG_RQST_i (conf_req) , 

.  SM_C0NFIG_STATUS_O ( SM_C0NFIG_STATUS_O )  , 

.SM  FLASH  BASE  i  (  { f lashhi [ 4 : 0 ] , f lashlo [ 1 5 : 0 ]  }  )  )  ; 


endmodule 

module  selectmap_config_xsoc (elk,  rst,  Ctrl,  sel,  d,  errorbus, 

T_SELECTMAP_INIT_o,  T_SELECTMAP_WRITE_o, 
T_S  ELECTMAP_C  S_0 ,  T_S  ELECTMAP_DATA_o , 
T_FLASH_DATA_i,  T_FLASH_ADDRESS_0 , 
SM_CONFIG_STATUS_o) ; 


input 

elk; 

input 

input  [47:0] 

Ctrl; 

rst; 

input  [2:0] 

sel  ; 

inout  [47:0] 

d; 

inout  [15:0] 

errorbus ; 

output 

T  SELECTMAP  INIT  o; 

output 

T  SELECTMAP  WRITE  o; 

output 

T  SELECTMAP  CS  o; 

output  [7:0] 

T  SELECTMAP  DATA  o; 

input  [15:0] 

T  FLASH  DATA  i; 

output [21:0] 

T  FLASH  ADDRESS  o; 

output 

SM  CONFIG  STATUS  o; 

wire  [2:0] 

SELECTMAP  INIT  o; 

wire  [2:0] 

SELECTMAP  WRITE  o; 

wire  [2:0] 

SELECTMAP  CS  o; 

wire  [23:0] 

SELECTMAP  DATA  o; 

wire  [65:0] 

FLASH  ADDRESS  o; 

wire  [2:0] 

CONFIG  STATUS; 

wire 

elk; 

// 

Clock 

wire 

rst; 

// 

Reset 

wire  [47:0] 

Ctrl; 

//  16-bit 

memory  control  bus 

wire  [2:0] 

sel;  //  1-bit 

peripheral  select 

Select) 

//  I/O  0  is  at  base 

address  FFOO,  subsequent  IDs 

//  are  each  20h 


higher 


tri 

[47:0] 

d; 

//  16-bit  tri-state  data 

bus 

wor 

[15:0] 

errorbus ; 

//  16-bit  Global  Error  Bus, 

wired-OR 

wire 

[14:0] 

addr ; 

// 

5-bit  Peripheral  Address  Space 

wire 

[2:0] 

ud_ 

t; 

//  Active-low  upper  byte 

data 

bus 

tri 

state 

drive 

enable 

wire 

[2:0] 

ld_ 

t; 

//  Active-low  lower  byte 

data 

bus 

tri 

state 

drive 

enable 

wire 

[2:0] 

ud_ 

ce; 

// 

Active-high  upper  byte  valid 

data 

clock 

enable 

wire 

[2:0] 

ld_ 

ce; 

// 

Active-high  lower  byte  valid 

data 

clock 

enable 
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dout; 


wire 

wire  [2:0] 

ctrl_dec_syn 
.ud_t (ud_t [0]  )  , 

.addr (addr [4:0]  )  , 

ctrl_dec_syn 
.  ud_t (ud_t [ 1 ] )  , 

. addr (addr [9:5] )  , 


SM  CONFIG  STATUS  o; 


decO  ( . elk (elk) ,  .rst(rst),  .etrl(etrl),  .sel(sel), 

.ld_t (ld_t [0] ) ,  .ud_ee (ud_ee [0] ) ,  .ld_ee (ld_ee [0] ) 
. errorbus (errorbus),  .id(' SMC_CTRL_DEC ) ) ; 
deel  ( . elk (elk) ,  .rst(rst),  .etrl(etrl),  .sel(sel), 

. ld_t (ld_t [1 ] ) ,  .ud_ee (ud_ee [1] ) ,  . ld_ee (ld_ee [1 ] ) 

. errorbus (errorbus ) ,  . id ( ' SMC  CTRL_DEC) ) ; 


otrl_deo_syn  deo2 ( . elk (elk) ,  .rst(rst),  .otrl(otrl),  .sel(sel), 

.ud_t (ud_t [2] )  , 

. ld_t (ld_t [2 ] ) ,  . ud_oe (ud_oe [2 ] ) ,  . ld_oe (ld_oe [2 ] ) 

.  addr ( addr [14:10]), 


. errorbus (errorbus),  .id(' SMC_CTRL_DEC ) ) ; 

'SMC_VOTER  #(1)  SELECTMAP_INIT_v  ( . din ( SELECTMAP_INIT_o ) , 

.dout (T_SELECTMAP_INIT_o) , 

. errorbus  (errorbus ) ,  .elk  (elk), 

.rst (rst)  ,  . ID ( 'SMC_SELECTMAP_INIT)  )  ; 

' SMC_VOTER  # (1)  SELECTMAP_WRITE_v  ( .din (SELECTMAP_WRITE_o) , 

.dout (T_SELECTMAP_WRITE_o)  , 

. errorbus  (errorbus ) ,  .elk  (elk), 

.rst (rst)  ,  . ID ( 'SMC_SELECTMAP_WRITE)  )  ; 

'SMC_VOTER  #(1)  SELECTMAP_CS_v  ( . din ( SELECTMAP_CS_o ) , 

.dout (T_SELECTMAP_CS_o) , 

. errorbus  (errorbus ) ,  .elk (elk). 


.rst (rst)  ,  . ID ( 'SMC_SELECTMAP_CS)  ) ; 

'SMC_VOTER  #(8)  SELECTMAP_DATA_v  ( . din ( SELECTMAP_DATA_o ) , 

.dout (T_SELECTMAP_DATA_o) , 

. errorbus  (errorbus ) ,  .elk  (elk), 

.rst (rst)  ,  . ID ( 'SMC_SELECTMAP_DATA)  )  ; 

'SMC_VOTER  #(22)  FLASH_ADDRESS_v  ( . din ( FLASH_ADDRESS_0 ) , 

.dout (T_FLASH_ADDRESS_o)  , 

. errorbus  (errorbus ) ,  .elk  (elk), 

.rst (rst)  ,  . ID ( 'SMC_FLASH_ADDR)  )  ; 

' SMC_VOTER  # ( 1 )  CONFIG_STATUS_v  ( . din (CONFIG_STATUS ) , 

.dout (SM_CONFIG_STATUS_0) , 

. errorbus  (errorbus ) ,  .elk (elk), 

.rst(rst),  .ID('SMC  CONFIG_STATUS ) ) ; 


seleotmap_oonf ig_xsoo_mod  sm_mod0 (  .olk(olk). 


. rst (rst)  , 


.ld_t(ld_t),  . ld_oe (ld_oe) ,  .addr (addr), 
.d(d),  .dout (dout [0] ) , 

.T_SELECTMAP_INIT_o ( SELECTMAP_INIT_o [ 0 ] ) , 

.  T_SELECTMAP_WRITE_o ( SELECTMAP_WRITE_o [ 0 ]  ) , 
.  T_SELECTMAP_CS_0 ( SELECTMAP_CS_0 [ 0 ]  ) , 
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. T_SELECTMAP_DATA_o ( SELECTMAP_DATA_o [ 7 : 0 ] ) , 
.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 
.T_FLASH_ADDRESS_o(FLASH_ADDRESS_o[21:0] ) , 

. SM_C0NFIG_STATUS_O (CONFIG_STATUS [0]  )  , 

.errorbus (errorbus) )  ; 

selectmap_conf ig_xsoc_mod  sm_modl  (  .clk;(clk;), 

.  rst (rst) , 

.ld_t(ld_t),  . ld_ce (ld_ce) ,  .addr(addr), 

.d(d),  .dout (dout [1] )  , 

.T_SELECTMAP_INIT_o (SELECTMAP_INIT_o [ 1 ] ) , 

. T_SELECTMAP_WRITE_o ( SELECTMAP_WRITE_o [ 1 ] ) , 

. T_SELECTMAP_CS_0 ( SELECTMAP_CS_0 [ 1 ] ) , 

. T_SELECTMAP_DATA_o ( SELECTMAP_DATA_o [15:8]), 
.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 

. T_FLAS  H_AD  DRESS_o(FLAS  H_AD  DRESS_o[43:22]), 

. SM_C0NFIG_STATUS_O (CONFIG_STATUS [1] ) , 

.errorbus (errorbus) )  ; 

selectmap_conf ig_xsoc_inod  sm_inod2  (  .clk(clk), 

.  rst (rst) , 

.ld_t(ld_t),  . ld_ce (ld_ce) ,  .addr(addr), 

.d(d),  . dout (dout [2 ] )  , 

.T_SELECTMAP_INIT_o ( SELECTMAP_INIT_o [ 2 ] ) , 

. T_SELECTMAP_WRITE_o ( SELECTMAP_WRITE_o [ 2 ] ) , 

. T_SELECTMAP_CS_0 ( SELECTMAP_CS_0 [ 2 ] ) , 

. T_SELECTMAP_DATA_o ( SELECTMAP_DATA_o [ 2 3 : 1 6 ] ) , 
.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 

. T_FLAS  H_AD  DRESS_o(FLAS  H_AD  DRESS_o[65:44]), 

. SM_C0NFIG_STATUS_O (CONFIG_STATUS [2 ] ) , 

.errorbus (errorbus) )  ; 


assign  d[7:0] 


=  ld_t[0]  ?  8 'bz  :  {7 'bO, 
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dout [0]  } 


assign 

d[15 

8] 

= 

ud 

t[0]  ? 

8  'bz  : 

8  'bO; 

assign 

d[23 

16] 

=  Id 

t 

[1 

? 

8  'bz  : 

{7'bO, 

dout [ 1 ]  } 

assign 

d[31 

24] 

=  ud 

t 

[1 

? 

8  'bz  : 

8  'bO; 

assign 

d[39 

32] 

=  Id 

t 

[2 

? 

8  'bz  : 

{7'bO, 

dout [2]  } 

assign 

d[47 

40] 

=  ud 

t 

[2 

? 

8  'bz  : 

8  'bO; 

endmodule 

P.  SELECTMAP  RB  XSOC.V 


'include  "voterids.v" 

'timescale  Ins  /  Ips 

//  change  so  reading  Error  Word  Addr  clears  status 
//  change  so  scrub  halts  when  error  occurs 


'define  SM_RB_RQST_ADDR 

'define  SM_RB_STATUS_ADDR 

'define  SM_RB_READ_DATA_ADDR  5'h2 

'define  SM_RB_ERROR_LOC_H_ADDR  5'h4 

'define  SM_RB_ERROR_LOC_L_ADDR  5'h6 

'define  SM_RB_ERROR_WORD_ADDR  5'h8 

'define  SM_RB_DATA_RDY_ADDR  5 ' hA 

'define  SM_RB_FLASH_BASE_LOW  5  '  hC 

'define  SM  RB  FLASH  BASE  HIGH  5  '  hE 


//  change  the  next  line  to  read  voterlnsyn  to 
//  reenable  error  reporting  for  this  module's  voters 
'define  SMR  VOTER 


5  'hO 
5  'hi 


voter Insynh 


module  selectmap_rb_xsoc_mod (elk,  rst,  ld_t,  ld_ce,  addr, 

d,  dout,  errorbus,  int_req, 
T_SELECTMAP_INIT_o,  T_SELECTMAP_WRITE_o, 
T_S  ELECTMAP_C  S_0 ,  T_S  ELECTMAP_DATA_o , 
T_SELECTMAP_DATA_i, 

T_FLASH_DATA_i,  T_FLASH_ADDRESS_0 , 

SM_RB  STATUS_o,  T  CCLK  o) ; 


input 

input 

input  [2:0] 
input  [2:0] 
input  [14:0] 
input  [47:0] 

output  [15:0] 
inout  [15:0] 
output 
output 
output 
output 
output  [7:0] 
input  [7:0] 
input  [15:0] 
output [21:0] 
output 
output 


elk; 

rst; 

ld_t; 

ld_ce; 

addr  ; 

d; 

dout; 
errorbus ; 

int_req; 

T_SELECTMAP_INIT_o; 
T_S  ELECTMAP_WRI TE_o ; 
T_S  ELECTMAP_C  S_o ; 
T_SELECTMAP_DATA_o; 

T_SELECTMAP_DATA_i ; 
T_FLASH_DATA_i ; 
T_FLASH_ADDRESS_0 ; 

SM_RB_STATUS_o ; 

T  CCLK  o; 


wor  [15:0] 


errorbus;//  16-bit  Global  Error  Bus,  wired-OR 


wire 

tri-state  drive  enable 


V  Id  t; 


//  Active-low  lower  byte  data  bus 
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wire 


V  Id  ce; 


//  Active-high  lower  byte 


valid  data 


clock  enable 

wire  [15:0]  v_d;  //  voted  data  bus 

wire  [4:0]  v_addr;  //  voted  address 


wire 

wire  [7:0] 
wire  [7:0] 
wire  [15:0] 
wire  [15:0] 
wire 
reg 


SM_RB_STATUS_o; 
SM_RB_READ_DATA_o ; 
SM_RB_ERROR_LOC_H_o ; 

SM_RB_ERROR_LOC_L_o ; 
SM_RB_ERROR_WORD_o ; 

SM_RB_DATA_RDY_o ; 
SM  RB  ACK  i; 


reg 

reg  [15:0] 
reg  [4:0] 


rb_req; //  configure  request 
f lash_addr_low; 
f  lash_addr_high; 


reg  [15:0]  dout;  //  16-bit  data  bus 

assign  errorbus  =  16 'bO; 
assign  int_req  =  I'bO; 


'SMR_VOTER  #(16)  d_v  (.din(d), 

.clk(clk),  .rst(rst) 

'SMR_VOTER  #(5)  addr_v 

.errorbus (errorbus) , 

.clk(clk),  .rst(rst) 

' SMR_VOTER  # ( 1 )  ld_t_v 

.errorbus (errorbus)  , 

.clk(clk),  .rst(rst) 

' SMR_VOTER  # ( 1 )  ld_ce_v 

.errorbus (errorbus)  , 


.dout(v_d),  . errorbus (errorbus ) , 

. ID  (  ' SMR_D)  )  ; 

(.din(addr),  .  dout (v_addr )  , 

. ID ( ' SMR_ADDR)  )  ; 

(.din(ld_t),  .  dout  (v_ld_t)  , 

. ID  (  ' SMR_LD_T)  )  ; 

( .din (ld_ce) ,  . dout (v_ld_ce) , 


.clk(clk),  .rst(rst),  . ID ( ' SMR  LD  CE) ) ; 


always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

begin 

rb_req  <=  I'bO; 
f lash_addr_high  <=  5'bOOOOO; 
flash^addr^low  <=  1 6 ' bOOOOOOOOOlOOl 000 ; 

end 

else  begin 

//  I  got  your  request,  working  on  it,  clear  request 
if  (SM_RB_STATUS_o  &  rb_req) 
begin 

rb_req  <=  I'bO; 

end 

// 

if  (SM_RB_ACK_i  &  ~SM_RB_DATA_RDY_o ) 
begin 

SM_RB_ACK_i  <=  I'bO; 

end 

//  writing,  addr  0  =  low  flash  base,  addr  2  =  high  flash 
base,  addr  4  =  conf  request 

if  (v_ld_ce) 
begin 

if  (v_addr=='SM_RB_RQST_ADDR) 
begin 
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rb_req  <=  I'bl; 


end 

if  (v_addr==' SM_RB_FLASH_BASE_HIGH) 
begin 

f lash_addr_high  <=  v_d[4:0]; 

end 

if  (v_addr==' SM_RB_FLASH_BASE_LOW) 
begin 

f lash_addr_low  <=  v_d; 

end 


end 

else  if  (v_ld_t) 
begin 

case  (v_addr) 

' SM_RB_STATUS_ADDR: 

dout  <=  {15'b0,  SM_RB_STATUS_o} ; 

' SM_RB_READ_DATA_ADDR : 

dout  <=  {8'bO,  SM_RB_READ_DATA_o } ; 

' SM_RB_ERROR_LOC_H_ADDR : 

dout  <=  {8'bO,  SM_RB_ERROR_LOC_H_o } ; 

' SM_RB_ERROR_LOC_L_ADDR : 

dout  <=  SM_RB_ERROR_LOC_L_o; 

' SM_RB_ERROR_WORD_ADDR : 

dout  <=  SM_RB_ERROR_WORD_o; 

SM_RB_ACK_i  <=  I'bl;  //  error  word  read 

is  an  ack  of  getting  all  the  data 

' SM_RB_DATA_RDY_ADDR : 

dout  <=  SM_RB_DATA_RDY_o ; 

default : 

dout  <=  1 6 ' bO ; 

endcase 


end 


selectmap_readback  selectmap_readbackO ( .T_CLOCK_i (elk) , 

.CLOCK_i (elk) , 

. RESET_i (rst)  , 

.T_CCLK_o (T_CCLK_o) , 

. T_SELECTMAP_FLASH_BASE_i ( { f lash_addr_high, f lash_addr_low } ) , 
.T_SELECTMAP_INIT_o (T_SELECTMAP_INIT_o) , 

.T_SELECTMAP_WRITE_o ( T_SELECTMAP_WRITE_o ) , 

. T_SELECTMAP_CS_0 (T_SELECTMAP_CS_o) , 

. T_SELECTMAP_DATA_o (T_SELECTMAP_DATA_o) , 

. T_SELECTMAP_DATA_i (T_SELECTMAP_DATA_i ) , 

. SM_RB_RQST_i (rb_req) , 

. SM_RB_STATUS_0 ( SM_RB_STATUS_0 ) , 
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.  SM_RB_ACK_i ( SM_RB_ACK_i )  , 

.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 
.T_FLASH_ADDRESS_0 (T_FLASH_ADDRESS_o) , 

.  SM_RB_READ_DATA_o ( SM_RB_READ_DATA_o )  , 

.  SM_RB_ERROR_LOC_H_o ( SM_RB_ERROR_LOC_H_o )  , 
.  SM_RB_ERROR_LOC_L_o ( SM_RB_ERROR_LOC_L_o )  , 
.  SM_RB_ERROR_WORD_o ( SM_RB_ERROR_WORD_o )  , 

.  SM_RB_DATA_RDY_o ( SM  RB  DATA_RDY_o )  )  ; 


endmodule 


module  selectmap_rb_xsoc (elk,  rst,  Ctrl,  int_req,  sel,  d,  errorbus, 

T_S  ELECTMAP_I NI T_o ,  T_S  ELECTMAP_WRI TE_o , 
T_S  ELECTMAP_C  S_0 ,  T_S  ELECTMAP_DATA_o , 
T_SELECTMAP_DATA_i, 

T_FLASH_DATA  i,  T  FLASH_ADDRESS_0 , 


SM  RB  STATUS 

_o,  T_CCLK_ 

p)  ; 

input 

elk; 

input 

rst; 

input  [47: 

0] 

Ctrl; 

output 

[2:0] 

int  req; 

input  [2:0 

] 

sel  ; 

inout  [47: 

0] 

d; 

inout 

[15:0] 

errorbus ; 

output 

T  SELECTMAP 

INIT  o; 

output 

T  SELECTMAP 

WRITE  o; 

output 

T  SELECTMAP 

CS_o; 

output 

[7:0] 

T  SELECTMAP  DATA  o; 

input 

[7:0] 

T  SELECTMAP 

DATA  i; 

input 

[15:0] 

T  FLASH  DATA  i; 

output 

[21:0] 

T  FLASH  ADDRESS  o; 

output 

SM  RB  STATUS 

o; 

output 

T  CCLK  o; 

wire 

[2:0] 

int  req; 

wire 

elk; 

// 

Clock 

wire 

rst; 

// 

Reset 

wire 

[47:0] 

Ctrl; 

// 

16-bit  memory  control  bus 

wire 

[2:0] 

sel  ; 

//  1-bit 

peripheral 

select  # 

Select) 

//  I/O  0  i; 

address  FFOO, 

subsequent 

IDs 

//  are 

higher 

tri 

[47:0] 

d; 

//  16-bit 

tri-state 

data  bus 

wor 

[15:0] 

errorbus ; / / 

16-bit  Global  Error 

Bus,  wired- 

Base 

base 

20h 


wire 


[14:0]  addr; 


//  5-bit  Peripheral  Address  Space 
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wire 

[2:0] 

ud 

t; 

//  Active-low  upper 

byte  data 

bus 

tri¬ 

state 

drive 

enable 

wire 

[2:0] 

ld_ 

t; 

//  Active-low  lower 

byte  data 

bus 

tri¬ 

state 

drive 

enable 

wire 

[2:0] 

ud_ 

ce; 

// 

Active-high  upper  byte 

valid 

data 

clock 

enable 

wire 

[2:0] 

ld_ 

ce; 

// 

Active-high  lower  byte 

valid 

data 

clock 

enable 

wire 

[15:0]  V  d; 

// 

voted  data  bus 

wire 

[4:0] 

V  addr 

//  voted  address 

wire 

V 

Id  ce; 

wire 

V 

Id  t; 

SM  RB  STATUS  o; 


wire  [7:0] 

SM  RB  READ  DATA  o; 

wire  [7:0] 

w 

1 

ERROR  LOG  H  o; 

wire  [15:0] 

"  SM  RB  ERROR  LOG  L  o; 

wire  [15:0] 

SM  RB  ERROR  WORD  o; 

wire 

SM  RB  DATA  RDY  o; 

reg 

rb  req; //  configure 

request 

reg  [15:0] 

flash  addr  low; 

reg  [4:0] 

flash  addr  high; 

wire  [47:0] 

dout; 

//  16-bit  data  bus 

wire  [2:0] 

CCLK  o; 

wire  [2:0] 

RB  STATUS; 

wire  [2:0] 

SELECTMAP  INIT  o; 

wire  [2:0] 

SELECTMAP  WRITE  o; 

wire  [2:0] 

SELECTMAP  CS  o; 

wire  [23:0] 

SELECTMAP  DATA  o; 

wire  [65:0] 

FLASH  ADDRESS  o; 

Ctrl  dec  syn 

decO ( . elk (elk) ,  .rst(rst). 

.ctrl(ctrl),  .sel(sel). 

ud  t (ud  t [0] ) , 

.Id  t(ld  t[0]),  .ud  ce (ud 

_ce[0] ) , 

.Id  ce (Id  ce  [0] ) , 

addr (addr [4:0] ) , 

. errorbus (errorbus ) ,  . id ( ' 

SMR  CTRL 

DEC ) ) ; 

Ctrl  dec  syn 

decl ( . elk (elk) ,  .rst(rst). 

.ctrl(ctrl),  .sel(sel). 

ud  t (ud  t [ 1 ] ) , 

.Id  t(ld  t[l]),  .ud  ce (ud 

_ce[l] ) , 

. Id  ce (Id  ce [1 ] ) , 

addr (addr [9:5] ) , 

. errorbus (errorbus ) ,  . id ( ' 

SMR  CTRL 

DEC ) ) ; 

Ctrl  dec  syn 

dec2 ( . elk (elk) ,  .rst(rst). 

.ctrl(ctrl),  .sel(sel). 

ud  t (ud  t [2] ) , 

.Id  t(ld  t[2]),  .ud  ce (ud 

_ce[2] ) , 

.ld_ce (ld_ce [2] ) , 

addr ( addr [14:10]), 

. errorbus (errorbus ) ,  . id ( ' 

SMR  CTRL 

DEC ) ) ; 

voterlnsynh 

#  (1) 

SELECTMAP  INIT  v 

( .din (SELECTMAP  INIT  o) , 

dout(T  SELECTMAP  INIT  o) , 

.errorbus (errorbus) , 

. ID ( ' SMR_SELECTMAP_INIT) ) ; 

voterlnsynh  #(1)  SELECTMAP_WRITE_v 
.dout (T_SELECTMAP_WRITE_o)  , 

.errorbus (errorbus)  , 
.ID('SMR  SELECTMAP  WRITE)); 


.clk;(clk;),  .rst(rst), 

( .din (SELECTMAP_WRITE_o) , 
.clk;(clk),  .rst(rst). 
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voterlnsynh  #(1)  SELECTMAP_CS_v  ( . din (SELECTMAP_CS_o) , 

.dout (T_SELECTMAP_CS_o) , 

.  errorbus  (errorbus)  ,  .clk;(clk;),  .rst(rst), 

.  ID ( ' SMR_SELECTMAP_CS ) )  ; 

voterlnsynh  #(8)  SELECTMAP_DATA_v  (  .  din  (SELECTMAP_DATA_o) , 

.dout (T_SELECTMAP_DATA_o) , 

.  errorbus  (errorbus)  ,  .clk;(clk;),  .rst(rst), 

.  ID ( ' SMR_SELECTMAP_DATA)  )  ; 

voterlnsynh  #(22)  FLASH_ADDRESS_v  ( . din (FLASH_ADDRESS_o) , 

.dout (T_FLASH_ADDRESS_o) , 

.  errorbus  (errorbus)  ,  .clk;(clk;),  .rst(rst), 

.  ID  (  ' SMR_FLASH_ADDR)  )  ; 

voterlnsynh  #(1)  RB_STATUS_v  ( . din (RB_STATUS ) ,  . dout (SM_RB_STATUS_o) , 

.  errorbus  (errorbus)  ,  .clk;(clk;),  .rst(rst), 

.  ID  (  ' SMR_RB_STATUS)  )  ; 

//voted  clock  prone  to  noise  on  transitions,  bad  idea 

//voterlnsynh  #(1)  CCLK_v  ( . din (CCLK_o) ,  . dout (T_CCLK_o) , 

.errorbus (errorbus) , 

//  .elk (elk),  .rst(rst),  . ID ( ' SMR_CCLK) ) ; 

assign  T_CCLK_o  =  CCLK_o[0]; 


selectmap_rb_xsoc_mod  selectmap_readbackO ( . elk (elk) , 
. rst (rst) , 

. ld_ce (ld_ce) , 

. ld_t (ld_t)  , 

. addr (addr ) , 

.d(d) , 

. dout (dout [15:0] ) , 

.errorbus (errorbus) , 

. int_req ( int_req [ 0 ] ) , 

.T_CCLK_o (CCLK_o[0] ) , 

.T_SELECTMAP_INIT_o ( SELECTMAP_INIT_o [ 0 ]  )  , 

. T_SELECTMAP_WRITE_o ( SELECTMAP_WRITE_o [ 0 ] ) , 

. T_SELECTMAP_CS_0 ( SELECTMAP_CS_0 [ 0 ] ) , 

. T_SELECTMAP_DATA_o ( SELECTMAP_DATA_o [ 7 : 0 ] ) , 

. T_SELECTMAP_DATA_i (T_SELECTMAP_DATA_i ) , 

. SM_RB_STATUS_0 (RB_STATUS [0] ) , 

.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 

.T  FLASH  ADDRESS  o(FLASH  ADDRESS_o [ 2 1 : 0 ] ) ) ; 


selectmap_rb_xsoc_mod  selectmap_readbackl ( . elk (elk)  , 
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. rst (rst) 


. ld_ce (ld_ce) , 

. ld_t (ld_t) , 

. addr (addr ) , 

.d(d) , 

. dout (dout [31:16]), 

.errorbus (errorbus) , 

. int_req ( int_req [ 1 ] ) , 

. T_CCLK_o (CCLK_o [ 1 ]  )  , 

.T_SELECTMAP_INIT_o (SELECTMAP_INIT_o [ 1 ]  )  , 

. T_SELECTMAP_WRITE_o ( SELECTMAP_WRITE_o [ 1 ] ) , 

. T_SELECTMAP_CS_0 ( SELECTMAP_CS_0 [ 1 ] ) , 

. T_SELECTMAP_DATA_o ( SELECTMAP_DATA_o [15:8]), 

. T_SELECTMAP_DATA_i (T_SELECTMAP_DATA_i ) , 

. SM_RB_STATUS_0 (RB_STATUS [1 ]  )  , 

.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 
.T_FLASH_ADDRESS_o(FLASH_ADDRESS_o[43:22] ) ) ; 

selectmap_rb_xsoc_mod  selectmap_readback;2  ( .  elk  (elk)  , 
. rst (rst) , 

. ld_ee (ld_ee) , 

. ld_t (ld_t)  , 

. addr (addr) , 

.d(d) , 

. dout (dout [47:32]), 

.errorbus (errorbus) , 

. int_req ( int_req [ 2 ] ) , 

.T_CCLK_o (CCLK_o[2]  )  , 

.T_SELECTMAP_INIT_o ( SELECTMAP_INIT_o [ 2 ] ) , 

. T_SELECTMAP_WRITE_o ( SELECTMAP_WRITE_o [ 2 ] ) , 

. T_SELECTMAP_CS_0 (SELECTMAP  CS_o[2] ) , 
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.  T_SELECTMAP_DATA_o ( SELECTMAP_DATA_o [ 2 3 : 1 6 ]  ) , 
.  T_SELECTMAP_DATA_i (T_SELECTMAP_DATA_i )  , 

.  SM_RB_STATUS_0 (RB_STATUS [2 ]  )  , 

.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 

.T  FLASH_ADDRESS_o(FLASH_ADDRESS_o[65:44] ) ) ; 


assign 

d[7:0] 

Id 

t[0]  ? 

8'bz  :  dout[7:0] 

assign 

d[15:8] 

= 

ud 

.t[0]  ? 

8 ' bz  :  dout [15:8 

assign 

d[23:16] 

=  Id 

t 

[1 

? 

8  'bz  : 

dout [23:16] ; 

assign 

d[31 :24] 

=  ud 

t 

[1 

? 

8  'bz  : 

dout [31:  24]  ; 

assign 

d[39:32] 

=  Id 

t 

[2 

? 

8  'bz  : 

dout [39: 32] ; 

assign 

d[47:40] 

=  ud 

t 

[2 

? 

8  'bz  : 

dout[47:40]  ; 

endmodule 


Q,  TMRND.V 

'timescale  Ins  /  Ips 

//  file  contains  a  pulldown  for  the  processor  data  bus 
//  and  various  voter  modules 

//  voter  inputs  floating  cause  false  error  reports 

module  datapulldown (d) ; 
inout  [47:0]  d; 
tri  [47:0]  d; 

genvar  i; 

generate 

for  (i=0; i<48 ; i=i+l )  begin  :pull_l 
PULLDOWN  data_pull ( .0  (d[i] ) ) ; 

end 

endgenerate 


endmodule 


//  parametized  voter,  no  error  syndrome 
module  voterln(din,  dout) ; 
parameter  W  =  16; 

parameter  N  =  W-1;  //  msb  index 
parameter  N1  =  (W*3)-l; 

input  [N1:0]  din; 
output  [N:0]  dout; 
reg  [N:0]  dout; 

genvar  i; 

generate 

for  ( i=0 ; i<W; i=i+l )  begin  :majl 
always  @ (din) 
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begin 


end 

end 

endgenerate 


dout[i]  =  (din [i] &din [i+W] )  |  (din [i] &din [i+ (2*W) ] )  | 

(din [i+W] &din [i+ (2*W) ] ) ; 


endmodule 


//  uses  the  same  ports  as  the  error  detection  voters  but  doesn't  implement 
//  used  to  easily  turn  on/off  errorbus  for  saving  space  on  the  FPGA 
module  voterlnsynh (din,  dout,  errorbus,  elk,  rst,  ID) ; 
parameter  W  =  16; 

parameter  N  =  W-1;  //  msb  index 
parameter  N1  =  (W*3)-l; 

input  [N1:0]  din; 
input  elk; 
input  rst; 
input  [9:0]  ID; 
input  [15:0]  errorbus; 
output  [N;0]  dout; 

reg  [N:0]  dout; 

genvar  i; 


generate 

for  ( 1=0 ; i<W; i=i+l )  begin  :majl 
always  @ (din) 
begin 

dout[i]  =  (din [i] &din [i+W] )  |  (din [i] &din [i+ (2*W) ] ) 

(din [i+W] &din [i+ (2*W) ] ) ; 


end 


end 

endgenerate 


endmodule 


//  slower  parametized  voter  with  syndrome  info  that  uses  less  resources 
module  voterlnsyn (din,  dout,  errorbus,  elk,  rst,  ID)  ; 
parameter  W  =  16; 

parameter  N  =  W-1;  //  msb  index 
parameter  N1  =  (W*3)-l; 

input  [N1:0]  din; 
input  elk; 
input  rst; 
input  [9:0]  ID; 
inout  [15:0]  errorbus; 
output  [N;0]  dout; 

wor  [15:0]  errorbus; 

wor  aerror  nxt,  berror  nxt,  cerror  nxt; 
reg  aerror,  berror,  cerror; 
genvar  i; 
generate 
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assign  aerror_nxt  =  I'bO; 
assign  berror_nxt  =  I'bO; 
assign  cerror_nxt  =  I'bO; 

for  ( i=0 ; i<W; i=i+l )  begin  :majl 

assign  dout[i]  =  (din [i] &din [i+W] )  |  (din [i ] &din [ i+ (2 *W) ] )  | 

(din [i+W] &din [i+ (2*W) ] ) ; 

assign  aerror_nxt  =  ((din[i]  &  (~din[i+W])  &  (~din [i+ (2*W) ] ) )  | 

((~din[i])  &  din[i+W]  &  dinli+ (2*W) ] ) )  ?  I'bl  :  I'bO; 

assign  berror_nxt  =  (((~din[i])  &  din [i+W]  &  (~din [i+ (2*W) ] ) )  | 

(din[i]  &  (~din[i+W])  &  din [i+ (2*W) ] ) )  ?  I'bl  :  I'bO; 

assign  cerror_nxt  =  (((~din[i])  &  (~din[i+W])  &  din [i+ (2*W) ] )  | 

(din[i]  &  din[i+W]  &  (~din [i+ (2*W) ] ) ) )  ?  I'bl  :  I'bO; 
end 

endgenerate 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

aerror  <=0; 
berror  <=0; 
cerror  <=0; 

end 

else  begin 

aerror  <=  aerror  nxt; 
berror  <=  berror  nxt; 
cerror  <=  cerror  nxt; 

end 

end 

//  I  have  an  error,  drive  error  bus  with  my  ID  &  info 

assign  errorbus  [14 ; 5]  =  (aerror  |  berror  |  cerror)  ?  ID  :  lO'dO; 

assign  errorbus [ 4 ; 3 ]  =  2 ' dO ; 

assign  errorbus [2 : 0 ]  =  (aerror  |  berror  |  cerror)  ? 

[  cerror , berror, aerror }  :  3'dO; 

//  collision  detect 

assign  errorbus [15]  =  (aerror  |  berror  |  cerror)  ? 

(  (errorbus [ 14 : 0 ]==({ ID, 2 ' dO , cerror , berror , aerror }) )  ?  I'bO  :  I'bl)  ;  I'bO; 


endmodule 

//  faster  parametized  voter  that  uses  more  resources 
module  voterlnsyn_new (din,  dout,  errorbus,  elk,  rst,  ID) ; 
parameter  W  =  16; 

parameter  N  =  W-1;  //  msb  index 
parameter  N1  =  (W*3)-l; 

input  [N1:0]  din; 
input  elk; 
input  rst; 
input  [9:0]  ID; 
inout  [15:0]  errorbus; 
output  [N:0]  dout; 

wor  [15:0]  errorbus; 

reg  [N:0]  aerror; 

reg  [N:0]  berror; 

reg  [N:0]  cerror; 
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genvar  i; 


generate 


for  ( i=0 ; i<W; i=i+l )  begin  :majl 
always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

aerror[i]  <=0; 
berror[i]  <=0; 
cerror[i]  <=0; 


end 

else  begin 

aerror[i]  <=  ((din[i]  & 
((~din[i])  &  din[i+W]  &  din [1+ (2*W) ] ) )  ; 

berror[i]  <=  (((~din[i]) 

(din[i]  &  (~din[i+W])  &  din [i+ (2*W) ] ) ) ; 

cerror[i]  <=  (((~din[i]) 

(din[i]  &  din[i+W]  &  (~din [i+ (2*W) ] ) ) ) ; 
end 


( ~din [ i+W] )  & 

&  din [i+W]  & 

&  (~din [i+W] ) 


end 


(~din [i+ (2*W) ] ) ) 
(~din [i+ (2*W) ] ) ) 
&  din [i+ (2*W) ] ) 


assign  dout[i]  =  (din [i ] &din [ i+W] )  |  (din [ i ] &din [ i+ (2 *W) ] ) 

(din [i+W] &din [i+ (2*W) ] ) ; 


end 

endgenerate 


//  I  have  an  error,  drive  error  bus  with  my  ID  &  info 

assign  errorbus  [  1 4 ; 5 ]  =  ((laerror)  |  (Iberror)  |  (Icerror))  ?  ID  :  lO'dO; 
assign  errorbus [ 4 ; 3 ]  =  2'dO; 

assign  errorbus  [2 : 0]  =  ((laerror)  |  (Iberror)  |  (Icerror))  ■; 

[  (  I cerror) ,  (  | berror) ,  (  | aerror) }  :  3 'dO; 

//  collision  detect 


assign  errorbus [15]  =  ((laerror)  |  (Iberror) 

( (errorbus [ 14 : 0 ] == ( { ID, 2  '  dO ,  ( | cerror) ,  ( | berror) ,  ( | aerror)  } ) ) 
1  'bO; 


I  (  I  cerror) ) 

?  I'bO  :  I'bl) 


■7 


endmodule 


R.  VOTERIDS.V 

//  voter  ID  definitions 
//datapath 

10 'dl 

10 'd2 
10 'd3 

10 'd4 

10 'd5 
10'd6 


lO'dlO 
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define 

DP 

RF  WE  V 

define 

DP 

RNA  V 

define 

DP 

^RNB  V 

define 

DP 

RDEST  V 

define 

DP 

>WD  V 

define 

DP 

IMM  V 

define 

DP 

^SEXTIMM4 

V 10 'd7 

define 

DP 

ZEXTIMM4’ 

VlO'dS 

define 

DP 

^WORDIMM4' 

V10'd9 

define 

DP 

IMM12  V 

define 

define 

define 

DP  PIPE  CE  V  lO'dll 
DP  B15  4  CE  V 10 'dl2 

DP  ADD  V 

10'dl3 

define 

DP  Cl  V 

10'dl4 

define 

define 

DP  LOGICOP  V  10'dl5 

DP  SRI  V 

10 'die 

define 

DP  SUM  T  V 

10'dl7 

define 

define 

DP  LOGIC  T  V  lO'dlS 
DP  SHL  T  V 

10'dl9 

define 

DP  SHR  T  V 

1 0 ' d2  0 

define 

DP  ZEROEXT  T  V 

1 0 ' d2 1 

define 

DP  RET  T  V 

10'd22 

define 

DP  UD  T  V 

10'd23 

define 

DP  LD  T  V 

1 0 ' d2  4 

define 

DP  UDLT  T  V 

1 0 ' d2  5 

define 

DP  BRANCH  V 

1 0 ' d2  6 

define 

DP  BRDISP  V 

1 0 ' d2  7 

define 

DP  SELPC  V 

1 0 ' d2  8 

define 

DP  ZEROPC  V 

1 0 ' d2  9 

define 

DP  DMAPC  V 

10'd30 

define 

DP  PC  CE  V 

10'd31 

define 

DP  RET  CE  V 

10'd32 

define 

DP  RES  V 

10'd33 

define 

DP  A  V 

10'd34 

define 

DP  B  V 

10'd35 

define 

DP  DOUT  V 

10'd36 

define 

DP  RET  V 

10'd37 

define 

define 

DP  ADDR  NXT  V10'd38 

CO  RDY  V 

10'd64 

define 

define 

define 

define 

CO  INT  REQ  V  10'd65 
CO  DMA  REQ  V  10'd66 
CO  ZERO DMA  V  10'd67 

CO  A15  V 

10'd68 

define 

CO  Z  V 

10'd69 

define 

CO  N  V 

10'd70 

define 

CO_CO_V 

10'd71 

define 

CO  V  V 

10'd72 

define 

CO  INSN  V 

10'd73 

define 

CO  ADD  V 

10'd74 

define 

CO  CI_V 

10'd75 

define 

CO  BRANCH  V 

10'd76 

define 

CO  SUM  T  V 

10'd77 

define 

define 

CO  LOGIC  T  V  10'd78 
CO  SHL  T  V 

10'd79 

define 

CO  SHR  T  V 

10'd80 

define 

CO  ZEROEXT  T  V 

10'd81 

define 

CO  RET  T  V 

10'd82 

define 

CO  IF  IR  V 

10'd83 

define 

CO  IR  V 

10'd84 

define 

CO  EX  IR  V 

10'd85 

define 

define 

CO  EX  CALL  V  10'd86 
CO  EX  ST  V 

10'd87 

define 

CO  IFETCH  V 

10'd88 

define 

CO  DMA  V 

10'd89 

define 

CO  SYNC  RESET  V 

10'd90 

define 

define 

define 

define 

CO  DC  ANNUL  V10'd91 
CO  EX  ANNUL  V10'd92 
CO  INT  PEND  V10'd93 
CO  DC  INT  V 

10'd94 

define 

define 

CO  DMA  PEND  V10'd95 
CO  ZERO  PEND  V 

10'd96 
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define 

COUNT64  COUNTO  10'dl28 

define 

COUNT64  COUNTl  10'dl29 

define 

COUNT64  COUNT2  lO'dlSO 

define 

COUNT64  COUNTS  lO'dlSl 

define 

COUNT64  ADDR  10'dl32 

define 

COUNT64  DIN  lO'dlSS 

define 

COUNT64  CTRL  DEC  10 

'dl34 

define 

COUNT64  LD  T  10 'dl35 

define 

COUNT64  LD  CE  10'dl36 

define 

ER  CTRL  DEC 

10'dl40 

define 

ER  MODULE  V 

10'dl41 

define 

ER  QU  ADD  V 

10'dl42 

define 

ER  QU  REM  V 

10'dl43 

define 

ER  MO  ADDR  V 

10'dl43 

define 

ER  MO  LD  T  V 

10'dl43 

define 

PC104  CTRL  DEC 

lO'dlSO 

define 

PC104  MO  D  V 

lO'dlSl 

define 

PC104  MO  LD  CE  V 

10'dl52 

define 

PC104  MO  LD  T  V 

10'dl53 

define 

PCI 04  MO  ADDR  V 

10'dl54 

define 

BRAM  SYNDROME  ERR 

10 'dl60 

define 

BRAM  ADDR  NXTO  V 

lO'diei 

define 

BRAM  ADDR  NXTl  V 

10'dl62 

define 

BRAM  ADDR  NXT2  V 

10'dl63 

define 

MC  MEM  CE  V 

10'dl70 

define 

MC  WORD  NXT  V 

10'dl71 

define 

MC  READ  NXT  V 

10'dl72 

define 

MC  DBUS  NXT  V 

10'dl73 

define 

MC  DMA  V 

10'dl74 

define 

MC  ADDR  NXT  V 

10'dl75 

define 

MC  DMA  REQ  IN  V 

10'dl76 

define 

MC  ZERO  REQ  IN  V 

10'dl77 

define 

SMC  CTRL  DEC 

lO'dlSO 

define 

SMC  SELECTMAN  INIT 

10'd200 

define 

SMC  SELECTMAN  WRITE 

10'd201 

define 

SMC  SELECTMAN  CS 

10'd202 

define 

SMC  SELECTMAN  DATA 

10'd203 

define 

SMC  FLASH  ADDR 

10'd204 

define 

SMC  CQNFIG  STATUS 

10'd205 

define 

SMC  D 

10'd206 

define 

SMC  ADDR 

10'd207 

define 

SMC  LD  T 

10'd208 

define 

SMC  LD  CE 

10'd209 

define 

SMR  CTRL  DEC 

10'dl90 

define 

SMR  D 

10'd220 

define 

SMR  ADDR 

10'd221 

define 

SMR  LD  T 

10'd222 

define 

SMR  LD  CE 

10'd223 

define 

SMR  SELECTMAN  INIT 

10'd224 

define 

SMR  SELECTMAN  WRITE 

10'd225 

define 

SMR  SELECTMAN  CS 

10'd226 

define 

SMR  SELECTMAN  DATA 

10'd227 

define 

SMR  FLASH  ADDR 

10'd228 

define 

SMR  RB  STATUS 

10'd229 
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' define 


SMR  CCLK 


10'd230 


S.  XICONTROL.V 

'timescale  Ins  /  Ips 

'define  FLASH_RP_LOW  16 

'define  X2  PROG  LOW  16 


module  xlcontrol (T  VPPEN  o. 


// 

// 

// 

// 


T_PROM_ENABLE_o , 

DATA_FROM_X2_MULTCHK_i , 

DATA_TO_X2_RESET_o, 

DATA_FROM_X2_READY_i , 

DATA_FROM_X2_OUTPUT_i , 

T_FLASH_DATA_i, 

T_FLASH_ADDRESS_0, 

T_FLASH_WE_o, 

T_FLASH_RP_o, 

T_FLASH_WP_o, 

T_FLASH_CE_A_o, 

T_FLASH_OE_o, 

T_DATA_io, 

T_ADDRESS_i, 

T_IOREAD_i, 

T_IOWRITE_i, 

T_IOCS_i, 

T_INTRPT_o, 

T_CCLK_o, 

T_SELECTMAP_INIT_o, 

T_SELECTMAP_WRITE_o, 

T_S  ELECTMAP_C  S_0 , 

T_S  ELECTMAP_DATA_i o , 
T_clock_i, 

T_X2_MODE, 

T_X2_PROG_o) ; 
v_addr_nxt, 
v_xd, 
int_req, 
int  test) ; 


output 
output 
EE PROM 

output 

input 

input  [31:0] 
input  [1:0] 


T_VPPEN_o;  //  #  only  needed  for  writing  FLASH 
T_PROM_ENABLE_o ;  //  drive  high  to  save  power 

DATA_TO_X2_RESET_o;  //XI  reset  to  X2 
DATA_FROM_X2_READY_i;  //  data  ready  on  X2 
DATA_FROM_X2_OUTPUT_i ;  //  Data  from  X2  experiment 
DATA  FROM  X2  MULTCHK  i; 


//  Flash  Memory  Pins 

input  [15:0]  T_FLASH_DATA_i ;  //  flash  data  in 

output  [20:0]  T_FLASH_ADDRESS_o ;  //flash  address  output 

output  T_FLASH_WE_o;  //  flash  write  enable 

output  T_FLASH_RP_o; 

output  T_FLASH_WP_o; 

output  T_FLASH_CE_A_o; 

output  T_FLASH_OE_o; 

//  PC-104  Interface  Pins 
inout  [7:0]  T  DATA  io; 
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input  [9:0]  T  ADDRESS  i; 

input  T 

I OREAD  i; 

input  T 

lOWRITE  i; 

input  T 

IOCS_i; 

output 

T  INTRPT  o; 

//  SelectMap  Interface 

Pins 

output 

T  CCLK  o; 

// 

#Drive  X2's  CCLK 

pin 

flight  board  =  p65 

output 

T  SELECTMAP 

INIT  o; 

//#Drive  X2's  INIT 

pin 

flight  board  =  pl24 

output 

T  SELECTMAP 

WRITE  0 

;  //#Drive  X2 ' s  WRITE 

pin 

flight  board  =  p63 

output 

T  SELECTMAP 

_CS_o; 

//  #Drive  X2 ' s  CS  pin 

inout  [7:0]  T_SELECTMAP_DATA_io ;  //  SelectMap  data  xfer 

//  System  clock 

input  T_clock_i;  //  51Mhz  SYSCLK  from  PC-104 

//  ??  T  X2  MODE; 


output 

T  X2  PROG  o; 

output 

[2:0] 

T  X2  MODE; 

// 

output 

fifo  full; 

// 

output 

[15:0] 

dout; 

// 

output 

load  status; 

// 

output 

[47:0] 

Ctrl; 

// 

output 

[47:0] 

sel  ; 

// 

output 

[15:0] 

V  addr 

nxt; 

// 

oil utput 

[47:0]" 

areg, breg; 

// 

ou/ tput 

[47:0] 

memdta,  xd; 

// 

output 

[15:0] 

V  xd; 

// 

output 

[47:0] 

d; 

// 

output 

[2:0] 

int  req; 

// 

input 

int  test 

//input  rst; 

tri  [7:0]  T_SELECTMAP_DATA_io ; 


//  XSOC  interface  signals 
wire  [47:0]  Ctrl ; 
wire  [2:0]  ctrlO ; 

wire  [2:0]  int_req; 

wire  [23:0]  io_int_req; 
wire  [23:0]  sel; 

tri  [47:0]  d; 

wor  [15:0]  errorbus; 


//  Global  clock  &  reset 

wire 

reg 


elk; 

r st=l ' bl ; 


wire 

wire 

wire  [21:0] 
wire  [21:0] 


conf ig_active ; 
readback_active  ; 
f lash_address_conf ig; 
flash  address  rb; 


reg 

reg 

reg 

reg 


T_X2_PROG_o; 
T_FLASH_RP_o; 
f lash_rp_cnt; 
x2  prog  ent; 


wire 

wire 


s_selectmap_data_i ; 

s_selectmap_WRITE_o ; 
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[7:0] 


wire 

WRITE  config; 

wire 

INIT  config; 

wire 

CS  config; 

wire 

WRITE  readback; 

wire 

INIT  readback; 

wire 

CS  readback; 

wire 

CCLK  readback; 

wire 

[7:0] 

selectmap  write  data  readback 

wire 

[7:0] 

selectmap  write  data  config; 

wire 

[7:0] 

selectmap  write  data; 

wire 

dlbclk; 

wire 

[15:0] 

V  addr  nxt,  v  xd; 

wire 

[47:0] 

addr  nxt,  xd; 

wire 

T  lOREA 

//  voterln  #(16)  addr_nxt_v  ( . din (addr_nxt) ,  . dout (v_addr_nxt) ) ; 

//  voterln  #(16)  xd_v  (.din(xd),  . dout (v_xd) ) ; 


assign  T_VPPEN_o  =  I'bO; 

assign  T_PROM_ENABLE_o  =  I'bl; 

assign  T_X2_MODE  =  {I'bl,  I'bl,  I'bO}; 

assign  T_FLASH_OE_o  =  I'bO; 

assign  T_FLASH_WP_o  =  I'bl; 

assign  T_FLASH_WE_o  =  I'bl; 

//  turn  off  reset  after  1  clock; 
always  @  (posedge  elk)  begin 
if  (rst)  begin 

r St  <=  I'bO ; 

end 

end 

//  stop  ISE  from  complaining  about  T_READ_i 

IBUF  read_i_buf  ( . I (T_IOREAD_i) ,  . 0 (T_IOREAD_i_out) ) ; 

//~20Mhz  system  clock  (51/2.5) 
clock_div  clock_divl ( .ACLK (T_clock_i) , 

.CLKDIV(clk) , 
.RST (1 'bO) ) ; 

//  clock_dbl  clock_dbll ( .ACLK (elk) ,  . CLKDBL (dblclk) ,  .RST(l'bO)) 

//xsoc  microcontroller 

//  ctrlO  is  used  to  indicate  additional  wait  states  for  10 

//  0  -  not  ready,  1  -  ready 

//  comment  out  this  line  if  using  ctrlO 

assign  ctrlO  =  {I'bl,  I'bl,  I'bl}; 

xsoc  xsocl (  .clk(clk), 

. rst (rst) , 

. Ctrl  (Ctrl) , 

. CtrlO (ctrlO) , 

. int_req ( int_req) , 

//  . int_req ( 3 ' hO ) , 

. sel  (sel) , 

.d(d) , 

.errorbus  (errorbus) , 
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. addr_nxt (addr_nxt) ) ; 

//PC-104  Interface,  ID  #0 
xsoc_pcl04  xsoc_pcl04_l  (.elk (elk), 

. rst (rst) , 

. Ctrl  (Ctrl) , 

. int_req ( { io_int_req [16], io_int_req [ 8 ] , io_int_req [ 0 ] } )  , 

. sel  ( {sel [16] , sel [8]  ,  sel [0]  } )  , 

.d(d) , 

. T_DATA_io (T_DATA_io)  , 

.T_ADDRESS_i ( T_ADDRESS_i ) , 

.T_IOREAD_i (T_IOREAD_i_out) , 

.T_IOWRITE_i (T_IOWRITE_i) , 

.T_IOCS_i (T_IOCS_i) , 

.T_INTRPT_o (T_INTRPT_o) , 

. fifo_full (fifo_full)  , 

.errorbus (errorbus) )  ; 

//  64-bit  counter,  ID  #3 


//assign  io_int_req [ 1 ] =int_test ;  //  irq  1 
//assign  io_int_req [ 9 ] =int_test ; 

//assign  io_int_req [ 1 7 ] =int_test; 


//  must  turn  off  unused  interrupts 
//assign  io_int_req [ 0 ] =1 ' bO ;  //  irq  0 
//assign  io_int_req [ 8 ] =1 ' bO ; 

//assign  io_int_req [ 1 6 ] =1 ' bO ; 

//assign  io_int_req [ 1 ] =1 ' bO ;  //  irq  1 
//assign  io_int_req [ 9 ] =1 ' bO ; 

//assign  io_int_req [ 1 7 ] =1 ' bO ; 

assign  io_int_req [2 ] =1 ' bO ;  //  irq  2 

assign  io_int_req [ 1 0 ] =1 ' bO ; 

assign  io_int_req[18] =1 'bO; 

assign  io_int_req [3 ] =1 ' bO ;  //  irq  3 

assign  io_int_req [ 1 1 ] =1 ' bO ; 

assign  io_int_req[19] =1 'bO; 

assign  io_int_req [ 4 ] =1 ' bO ;  //  irq  4 

assign  io_int_req [ 12 ] =1 ' bO ; 

assign  io_int_req [20] =1 'bO; 

//assign  io_int_req [ 5 ] =1 ' bO ;  //  irq  5 

//assign  io_int_req [ 1 3 ] =1 ' bO ; 

//assign  io_int_req [2 1 ] =1 ' bO ; 

assign  io_int_req [ 6 ] =1 ' bO ;  //  irq  6 

assign  io_int_req[14] =1 'bO; 

assign  io_int_req [22 ] =1 ' bO ; 

assign  io_int_req [ 7 ] =1 ' bO ;  //  irq  7 

assign  io_int_req [ 1 5 ] =1 ' bO ; 

assign  io_int_req [23] =1 'bO; 

xscounter64  xscounter64  1(  .elk (elk). 


143 


. rst (rst) 


. Ctrl (Ctrl) , 

.  int_req  in (io_int_req) , 

.  int_req_out (int_req) , 

.  sel  ( {sel [19] , sel [11] ,  sel[3]}), 

.d(d) , 


.errorbus (errorbus)  )  ; 

//  Error  Reporting  Module,  ID  #  1 
errorrept  errorreptl  (  .elk (elk). 


.  rst (rst) , 

. Ctrl (Ctrl)  , 


.  int_req( [ io_int_req [ 17 ] , io_int_req [ 9 ] , io_int_req [ 1 ] } ) , 

. sel ( [sel [17] , sel [9] , sel [1]  } ) , 

.d(d) , 


.errorbus (errorbus) ) ; 


assign  T_FLASH_ADDRESS_o  =  conf ig_active  ?  flash_address_conf ig [20 : 0 ] 
flash_address_rb [20:0] ; 

assign  T_FLASH_CE_A_o  =  conf ig_active  ?  f lash_address_conf ig [2 1 ] 
(readback_active  ?  flash_address_rb [21]  :  I'bl); 

//  delay  on  X2_PROG  by  X2_PROG_LOW  CLOCKS 
always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

x2_prog_cnt  <=  0; 

T_X2_PROG_o  <=  0; 

end 

else  begin 

if  (x2_prog_cnt  ==  ' X2_PROG_LOW) 
begin 

T_X2_PROG_o  <=  1; 
x2_prog_cnt  <=  ' X2_PROG_LOW; 

end 

else 

begin 

x2_prog_cnt  <=  x2_prog_cnt  +  1; 

end 

end 

end 

//  delay  on  T_FLASH_RP  by  FLASH_RP_LOW  clocks 
always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 
T_FLASH_RP_o  <=  0; 
flash_rp_cnt  <=  0; 
end 

else  begin 

if  ( f lash_rp_cnt  ==  ' FLASH_RP_LOW) 
begin 

T_FLASH_RP_o  <=  1; 
flash_rp_cnt  <=  ' FLASH_RP_LOW; 
end 

else 

begin 
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end 


end 


flash_rp_cnt  <=  flash_rp_cnt  +  1; 


end 

assign  selectmap_write_data  =  readback;_active  ? 

selectmap_write_data_readback  :  selectmap_write_data_conf ig; 

assign  s_selectmap_WRITE_o  =  readback_active  ?  WRITE_readback  : 
WRITE_conf ig; 

assign  s_selectmap_data_i  =  T_SELECTMAP_DATA_io; 

assign  T_SELECTMAP_DATA_io  =  ~s_selectmap_WRITE_o  ?  selectinap_write_data 

;  8  '  b  z  ; 

assign  T_SELECTMAP_WRITE_o  =  s_selectmap_WRITE_o; 

assign  T_SELECTMAP_INIT_o  =  readback_active  ?  INIT_readback  : 

INIT_conf ig; 

assign  T_SELECTMAP_CS_o  =  readback_active  ?  CS_readback  :  CS_config; 
assign  T_CCLK_o  =  CCLK_readback; 

//  SelectMap  config,  ID  #  4 

selectmap_conf ig_xsoc  selectmap_config_xsocO ( . elk (elk)  , 

. rst  (rst) , 

. etrl (etrl) , 

.  sel ( {sel [20] , sel [12] , sel  [4]  } )  , 

.d(d) , 

.errorbus (errorbus) , 

.T_SELECTMAP_INIT_o ( INIT_eonf ig ) , 

. T_SELECTMAP_WRITE_o (WRITE_eonf ig) , 

. T_SELECTMAP_CS_o (CS_eonfig) , 

. T_SELECTMAP_DATA_o ( seleetmap_wri te_data_eonf ig ) , 
.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 

. T_FLASH_ADDRESS_o ( flash_address_eonf ig)  , 

. SM_CONFIG_STATUS_o ( eonf ig_aetive ) ) ; 
seleetmap_rb_xsoe  seleetmap_rb_xsoeO (  .elk (elk), 

. rst  (rst) , 

. etrl (etrl) , 


.  int_req ( [ io_int_req [ 21 ] , io_int_req [13] , io_int_req [ 5]  } ) , 
. sel ( [sel [21] , sel [13] , sel  [5]  } ) , 

.d(d) , 

.errorbus (errorbus) , 

.T  SELECTMAP_INIT_o ( INIT_readbaok )  , 
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. T_SELECTMAP_WRITE_o (WRITE_readback)  , 

. T_SELECTMAP_CS_o (CS_readback) , 

. T_SELECTMAP_DATA_o ( selectinap_wri te_data_readback ) , 

. T_SELECTMAP_DATA_i ( s_selectmap_data_i ) , 

.T_FLASH_DATA_i (T_FLASH_DATA_i ) , 

.T_FLASH_ADDRESS_o (flash_address_rb) , 

. SM_RB_STATUS_o ( readback_active )  , 

.T_CCLK_o (CCLK_readback) )  ; 

//  no  X2  interface  yet 

assign  DATA_TO_X2_RESET_o  =  rst; 

endmodule 


T.  XR16.V 


/*  xrl6.v  --  xrl6  pipelined  RISC  processor  synthesizable  Verilog  model 

•k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

•k 

*  $Header;  /dist/xsocv/xrl 6 . v  7  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/xrl6 . V  $ 

•k 

*  7  4/06/00  10:55a  Jan 

*  polish 
*/ 

/*  last  modified  by  David  Dwiggins,  24  August  2008.  Adapted  to  use 

*  TMR/ECC  functionality  for  fault-tolerance.  */ 

//  original  code  by  Jan  Gray  included  at  end  of  file,  commented  out 
'timescale  Ins  /  Ips 


module  xrl6(clk,  rst,  rdy,  ud_t,  ld_t,  udlt_t,  int_req,  dma_req,  zerodma, 

insn,  mem_ce,  word_nxt,  read_nxt,  dbus_nxt,  dma,  addr_nxt,  d,  areg 
breg, pipe_ce, memdta, errorbus, 

if_ir,  ir,  ex_ir,  fwd,  imm,  sextimm4,  zextimm4,  wordimm4,  imml2 
drivelo,  drivehi) ; 


parameter 

parameter 


W  =16;  //  word  width 

N  =  W-1;  //  msb  index 


input 

input 

input 

[2:0 

input 

[2:0 

input 

[2:0 

elk; 

rst; 

rdy  ; 
ud_t; 

Id  t; 


//  global  clock 
//  global  async  reset 
//  current  memory  access  is  ready 
//  active  low  store  data  MSB  output  enable 
//  active  low  store  data  LSB  output  enable 
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input 

[2:0] 

udlt  t; 

//  active  low  store  data  MSB->LSB  output 

input 

[2:0] 

int  req; 

// 

interrupt  request 

input 

[2:0] 

dma  req; 

// 

DMA  request 

input 

[2:0] 

zerodma ; 

// 

zero  DMA  counter  request 

input 

[47:0] 

insn; 

// 

new  instruction  word 

inout 

[15:0] 

errorbus ; 

output 

[2:0] 

mem 

ce; 

//  memory  access  clock  enable 

output 

[2:0] 

word 

nxt; 

//  next  access  is  word  wide 

output 

[2:0] 

read 

nxt; 

//  next  access  is  read 

output 

[2:0] 

dbus 

nxt; 

//  next  access  uses  on-chip  data  bus 

output 

[2:0] 

dma; 

//  current  access  is  a  DMA  transfer 

output 

[47:0] 

addr  nxt; 

// 

address  of  next  memory  access 

inout 

[47:0] 

d; 

//  on-chip  data  bus 

output 

[47:0] 

areg; 

output 

[47:0] 

breg; 

output 

[2:0] 

pipe  ce; 

output 

[47:0] 

memdta; 

output 

[47:0] 

if  i r ; 

output 

[47:0] 

ir  ; 

output 

[47:0] 

ex  ir; 

output 

[2:0] 

fwd; 

output 

[35:0] 

imm; 

output 

[2:0] 

sextimm4 ; 

output 

[2:0] 

zextimm4 ; 

output 

[2:0] 

wordimm4 ; 

output 

[2:0] 

imml 2 ; 

output 

[2:0] 

drivelo; 

output 

[2:0] 

drivehi ; 

tri 

[47:0] 

d; 

wire 

[2:0] 

int 

req; 

//  locals 

wire 

[2:0] 

al5; 

// 

A  operand  msb 

wire 

[2:0] 

z ; 

//  zero  result  condition  code 

wire 

[2:0] 

n  ; 

//  negative  result  condition  code 

wire 

[2:0] 

co; 

//  carry-out  result  codition  code 

wire 

[2:0] 

v; 

//  overflow  result  condition  code 

wire 

[2:0] 

r  f  we ; 

// 

register  file  write  enable 

wire  [11:0] 

rna  ; 

// 

register  file  port  A  register  number 

wire  [11:0] 

rnb  ; 

// 

register  file  port  B  register  number 

wire  [11:0] 

rdest; 

// 

register  file  write  port  register  number 

wire 

[2:0] 

fwd; 

// 

forward  result  bus  into  A  operand  register 

wire  [35:0] 

imm; 

// 

12-bit  immediate  field 

wire 

[2:0] 

sextimm4 ; 

// 

sign-extend  4-bit  immediate  operand 

wire 

[2:0] 

zextimm4 ; 

// 

zero-extend  4-bit  immediate  operand 

wire 

[2:0] 

wordimm4 ; 

// 

word-offset  4-bit  immediate  operand 

wire 

[2:0] 

imml 2 ; 

// 

12-bit  immediate  operand 

wire 

[2:0] 

pipe  ce; 

// 

pipeline  clock  enable 

wire 

[2:0] 

bl5_4_ce; 

// 

b[15:4]  clock  enable 

wire 

[2:0] 

add; 

// 

1  =>  A  +  B;  0  =>  A  -  B 

wire 

[2:0] 

ci; 

/ /  carry-in 

wire  [5:0] 

logicop ; 

// 

logic  unit  opcode 

wire 

[2:0] 

sri  ; 

// 

shift  right  msb  input 

wire 

[2:0] 

sum  t; 

// 

active  low  adder  output  enable 

wire 

[2:0] 

logic  t; 

// 

active  low  logic  unit  output  enable 

wire 

[2:0] 

zeroext  t; 

// 

active  low  zero-extension  output  enable 

wire 

[2:0] 

shr  t; 

// 

active  low  shift  right  output  enable 

wire 

[2:0] 

shl  t; 

// 

active  low  shift  left  output  enable 

wire 

[2:0] 

ret  t; 

// 

active  low  return  address  output  enable 

wire 

[2:0] 

branch; 

//  branch  taken 
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wire 

[23:0] 

brdisp; 

//  8-bit  branch  displacement 

wire 

[2:0] 

selpc; 

//  address  mux  selects  next  PC 

wire 

[2:0] 

zeropc; 

//  force  next  PC  to  0 

wire 

[2:0] 

dmapc ; 

//  use  DMA  register  in  PC  register  file 

wire 

[2:0] 

pc  ce; 

//  PC  clock  enable 

wire 

[2:0] 

ret  ce; 

//  return  address  clock  enable 

wire 

[47:0] 

areg,  breg; 

wire 

[47:0] 

memdta ; 

wire 

[47:0 

]  a; 

wire 

[47:0 

]  b; 

wire 

[47:0 

]  dout; 

wire 

[47:0 

]  ret; 

wor 

[15:0 

]  errorbus; 

/ /  control  voter  wires 

wire 

[2:0] 

c  add,  c  ci. 

c  branch,  c  sum  t,  c  logic  t,  c  shl  t,  c 

shr  t 

zeroext  t. 

c  ret 

t; 

wire 

[47:0 

]  c  if  ir,  c  ir,  c  ex  ir; 

wire 

[2:0] 

c  ex  call. 

c  ex  St,  c  ifetch,  c  dma,  c  sync 

reset 

dc  annul; 

wire 

[2:0] 

c  ex  annul,  c 

int  pend,  c  dc  int,  c  dma  pend,  c  zero  pend; 

wire 

[2:0] 

drivehi ; 

wire 

[2:0] 

drivelo ; 

wire 

[47:0 

]  my  res; 

//  submodules 

//due  to  partitioning  not  supporting  partitions  called  from  generate  loops 
//generate  loops  expanded  by  hand 

datapath  dpi ( 

.clk(clk),  .rst(rst), 

. rf_we (rf_we) ,  .rna(rna),  .rnb(rnb),  . rdest (rdest) , 

. fwd ( fwd [ 0 ] ) ,  . imm (imm [11 : 0] )  ,  . sextimm4 ( sextimm4 [ 0 ] ) 

.  zextimm4 ( zextimm4 [ 0 ] )  , 

. wordimm4 (wordimm4 [ 0 ] ) ,  . imml2 ( imml2 [ 0 ] ) , 

.pipe_ce (pipe_ce) ,  .bl5_4_ce (bl5_4_ce) , 

. add (add [ 0] ) ,  .ci(ci[0]),  . logicop (logicop [1 : 0] ) ,  . sri  (sri  [0] ) , 

. sum_t (sum_t [0] ) ,  . logic_t ( logic_t [ 0 ] ) ,  . shl_t ( shl_t [ 0 ] ) 

. shr_t ( shr_t [ 0 ] ) , 

. zeroext_t ( zeroext_t [ 0 ] ) ,  . ret_t ( ret_t [ 0 ] ) , 

. ld_t (ld_t [0] ) ,  . ud_t (ud_t [ 0] ) ,  . udlt_t (udlt_t [ 0] ) , 

.branch (branch[0] ) ,  . brdisp (brdisp [ 7 : 0 ] ) ,  . selpc ( selpc [ 0 ] ) 

. zeropc (zeropc [0] ) , 

. dmapc (dmapc) ,  .pc_ce (pc_ce) ,  . ret_ce (ret_ce) , 

.al5(al5[0] ),  .z(z[0]),  .n(n[0]),  .co(co[0]),  .v(v[0]), 

. addr_nxt (addr_nxt [ 15 : 0 ] ) ,  .res(d),  . areg (areg [ 15 : 0 ] ) , 

. breg (breg [15:0] ) ,  .memdta (memdta [15:0]), 

.my_res (my_res [15:0]), 

. in_a (a) , . out_a (a [15 : 0] ) , 

. in_b (b) , .out_b (b [15: 0] ) , 

. in_dout (dout) , .out_dout (dout [15: 0] ) , 

. in_ret (ret) , . out_ret (ret[15:0]), 

. errorbus (errorbus ) ,  . inst_id ( 2 ' dl ) , . drivehi (drivehi [ 0 ] ) 

.drivelo (drivelo [0] ) , 

. in_addr_nxt (addr_nxt) ) ; 

datapath  dp2 ( 

.clk(clk),  .rst(rst), 
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. rf_we (rf_we) ,  .rna(rna),  .rnb(rnb),  . rdest (rdest) , 

.  fwd  ( fwd  [  1  ]  )  ,  .  imm  (imm  [23  : 12  ]  )  ,  .  sextiinm4  ( sextimin4  [  1  ]  ) 

zextiinm4  (zextiinm4  [1]  )  , 

. wordimm4 (wordimm4 [ 1 ] ) ,  . imml2 ( imml2 [ 1 ] ) , 

.pipe_ce (pipe_ce) ,  .bl5_4_ce (bl5_4_ce) , 

. add (add [ 1 ] ) ,  .ci(ci[l]),  . logicop (logicop [3 : 2 ] ) ,  . sri  ( sri  [  1 ] ) , 

.  sum_t  ( suin_t  [  1  ]  )  ,  .  logic_t  ( logic_t  [  1  ]  )  ,  .  shl_t  ( shl_t  [  1  ]  ) 

shr_t ( shr_t [ 1 ] )  , 

. zeroext_t ( zeroext_t [ 1 ] )  ,  . ret_t ( ret_t [ 1 ] )  , 

.ld_t(ld_t[l] ),  .ud_t (ud_t[l] ) ,  .udlt_t (udlt_t[l] ) , 

. branch  (branch [ 1 ]) ,  . brdisp (brdisp [ 15 : 8 ] )  ,  . selpc  ( selpc [ 1 ] ) 

zeropc (zeropc [1] ) , 

. dmapc (dmapc) ,  .pc_ce (pc_ce) ,  . ret_ce (ret_ce) , 

.al5(al5[l] ),  .z(z[l]),  .n(n[l]),  .co(co[l]),  .v(v[l]), 

. addr_nxt (addr_nxt [31 : 16] ) ,  .res(d),  . areg ( areg [ 31 : 1 6 ] ) , 

. breg (breg [31:16]),  .memdta (memdta [31:16]), 

.my_res (my_res [31:16]), 

. in_a ( a ) , . out_a ( a [ 3 1 : 1 6 ] ) , 

. in_b (b) , . out_b (b [31 : 16 ] ) , 

. in_dout (dout) , .out_dout (dout [31:16] ) , 

. in_ret (ret ) , . out_ret (ret[31:16] ) , 

. errorbus  (errorbus) ,  . inst_id ( 2 ' d2 ) ,  . drivehi  (drivehi [ 1 ] ) 

drivelo (drivelo [ 1 ] ) , 

. in  addr_nxt (addr_nxt) ) ; 


datapath  dp3 ( 

.clk(clk),  .rst(rst), 

. rf_we (rf_we) ,  .rna(rna),  .rnb(rnb),  . rdest (rdest) , 

. fwd ( fwd [ 2 ] ) ,  . imm (imm [35 : 24 ] ) ,  . sextimm4 ( sextimm4 [2 ] ) 

zextimm4 (zextimm4 [2] ) , 

. wordimm4 (wordimm4 [ 2 ] ) ,  . imml2 ( imml2 [ 2 ] ) , 

.pipe_ce (pipe_ce) ,  .bl5_4_ce (bl5_4_ce) , 

. add (add [2 ] ) ,  .ci(ci[2]),  . logicop (logicop [ 5 : 4 ]) ,  . sri  ( sri [ 2 ] ) , 

. sum_t (sum_t [2] ) ,  . logic_t ( logic_t [ 2 ] ) ,  . shl_t (shl_t [2 ] ) 

shr  t (shr  t [2] ) , 


. zeroext_t ( zeroext_t [ 2 ] ) ,  . ret_t ( ret_t [ 2 ] ) , 

.ld_t(ld_t[2] ),  .ud_t (ud_t[2] ) ,  . udlt_t (udlt_t [2 ] ) , 

.branch (branch[2] ) ,  . brdisp (brdisp [ 23 : 1 6 ]) ,  . selpc (selpc [2 ] ) 

zeropc  (zeropc [2] ) , 

. dmapc (dmapc) ,  .pc_ce (pc_ce) ,  . ret_ce (ret_ce) , 

.al5(al5[2] ),  .z(z[2]),  .n(n[2]),  .co(co[2]),  .v(v[2]), 

. addr_nxt (addr_nxt [ 47 : 32 ] ) ,  .res(d),  . areg (areg [47 : 32 ] ) , 

. breg (breg [47:32]),  .memdta (memdta [47:32]), 

.my_res (my_res [47:32] ) , 

. in_a (a) , . out_a (a [47 : 32 ] ) , 

. in_b (b) , .out_b (b [47: 32] ) , 

. in_dout (dout) , .out_dout (dout [47 : 32] ) , 

. in_ret (ret) , . out_ret (ret [47:32] ) , 

. errorbus  (errorbus ) ,  . inst_id ( 2 ' d3 ) ,  . drivehi (drivehi [2 ] ) 

drivelo (drivelo [ 2 ] ) , 

.in  addr  nxt(addr  nxt) ) ; 


control  ctrll  ( 

.clk(clk),  .rst(rst),  .rdy(rdy), 

. int_req(int_req[0] ) ,  . dma_req (dma_req [ 0 ] ) ,  . zerodma ( zerodma [ 0 ] ) , 

. insn  (insn [ 15 : 0 ] ) ,  .  al5  (al5  [  0 ] ) ,  .z(z[0]),  .n(n[0]),  .co(co[0]) 

v(v[0] ) , 

. mem_ce (mem_ce [ 0 ] )  ,  . word_nxt (word_nxt [ 0 ]  ) 

read_nxt ( r ead_nxt [ 0 ] )  , 

. dbus_nxt (dbus_nxt [ 0] ) ,  . dma (dma [ 0] ) , 
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. rf_we (rf_we [0] ) ,  . rna ( rna [ 3 : 0 ] ) ,  . rnb (rnb [ 3 : 0 ] ) , 

. rdest (rdest [3:0] )  , 

.  fwd  ( fwd  [  0 ]  )  ,  .  imm  (imm  [11 :  0]  )  ,  .  sextiinm4  ( sextimin4  [ 0  ]  )  , 

.  zextimm4 ( zextimm4 [ 0 ] )  , 

. wordimm4 (wordimm4 [ 0 ] ) ,  . imml2 ( imml2 [ 0 ] ) , 

.pipe_ce (pipe_ce [0] ) ,  .bl5_4_ce (bl5_4_ce [0] ) , 

. add (add [ 0] ) ,  .ci(ci[0]),  . logicop (logicop [1 : 0] ) ,  . sri  (sri  [0] ) , 

. sum_t (sum_t [0] ) ,  . logic_t ( logic_t [ 0 ] ) ,  . shl_t ( shl_t [ 0 ] ) , 

.  shr_t ( shr_t [ 0 ] ) , 

. zeroext_t ( zeroext_t [ 0 ] ) ,  . ret_t ( ret_t [ 0 ] ) , 

.branch (branch[0] ) ,  . brdisp (brdisp [ 7 : 0 ] ) ,  . selpc  ( selpc [ 0 ] ) , 

.  zeropc  (zeropc [0] ) , 

. dmapc (dmapc [ 0] ) ,  .pc_ce (pc_ce [0] ) ,  . ret_ce (ret_ce [0] ) , 

. in_add (c_add) ,  .out_add(c_add[0] ) ,  . in_ci (c_ci) , 

.  out_ci (c_ci [ 0] ) ,  . in_branch (c_branch) ,  . out_branch (c_branch [ 0] ) , 

. in_sum_t (c_sum_t) ,  .out_sum_t (c_sum_t [0] ) , 

.  in_logic_t (c_logic_t ) ,  . out_logic_t (c_logic_t [ 0] ) , 

. in_shl_t (c_shl_t) ,  . out_shl_t (c_shl_t [ 0 ] ) ,  . in_shr_t (c_shr_t) , 

.  out_shr_t ( c_shr_t [ 0 ] ) , 

. in_zeroext_t (c_zeroext_t) ,  . out_zeroext_t (c_zeroext_t  [0] ) , 

.  in_ret_t (c_ret_t ) ,  . out_ret_t (c_ret_t [ 0] ) , 

. in_if_ir (c_if_ir) ,  . out_if_ir ( c_if_ir [ 15 : 0 ] ) , 

. in_ir ( c_ir )  ,  .out_ir(c  ir[15:0]),  . in_ex_ir (c_ex_ir)  , 

.out_ex_ir (c_ex_ir [15:0]), 

. in_ex_call (c_ex_call)  ,  .out_ex_call (c_ex_call [0]  )  , 

.  in_ex_st (c_ex_st) ,  . out_ex_st (c_ex_st [0] ) , 

. in_ifetch (c_ifetch) ,  . out_ifetch ( c_if etch [ 0 ] ) ,  . in_dina (c_dma) , 

.out_dma (c_dma [0] ) ,  . in_sync_reset ( c_sync_reset ) , 

. out_sync_reset (c_sync_reset [ 0] ) ,  . in_dc_annul (c_dc_annul) , 

.  out_dc_annul (c_dc_annul [ 0 ] ) , 

. in_ex_annul ( c_ex_annul ) ,  . out_ex_annul ( c_ex_annul [ 0 ] ) , 

.  in_int_pend (c_int_pend) ,  . out_int_pend (c_int_pend [ 0 ] ) , 

. in_dc_int ( c_dc_int ) ,  . out_dc_int ( c_dc_int [ 0 ] ) , 

.  in_dma_pend (c_dma_pend) ,  . out_dma_pend (c_dma_pend [ 0] ) , 

. in_zero_pend (c_zero_pend) ,  . out_zero_pend ( c_zero_pend [ 0 ] ), 

.inum(2'dl) , .errorbus  (errorbus ) ) ; 

control  ctrl2  ( 

.clk(clk),  .rst(rst),  .rdy(rdy), 

. int_req(int_req[l] ) ,  . dma_req (dma_req [ 1 ] ) ,  . zerodma ( zerodma [ 1 ] ) , 

.insn(insn[31:16] ),  .  al5  (al5 [ 1 ] ) ,  .z(z[l]),  .n(n[l]),  .co(co[l]), 

.v(v[l] ) , 

.  mem_ce  (mein_ce  [  1  ]  )  ,  .  word_nxt  (word_nxt  [  1  ]  )  , 

.  read_nxt (read_nxt [ 1 ] ) , 

. dbus_nxt (dbus_nxt [ 1 ] ) ,  . dma (dma [ 1 ] ) , 

. rf_we ( rf_we [ 1 ] ) ,  . rna ( rna [ 7 : 4 ] ) ,  . rnb (rnb [7 : 4 ] ) , 

. rdest (rdest [7:4] )  , 

. fwd ( fwd [ 1 ] ) ,  . imm (imm [23 : 12 ] ) ,  . sextimm4 ( sextimm4 [ 1 ] ) , 

.  zextimm4 ( zextimm4 [ 1 ] ) , 

. wordimm4 (wordimm4 [ 1 ] ) ,  . imml2 ( imml2 [ 1 ] ) , 

.pipe_ce (pipe_ce [1] ) ,  .bl5_4_ce (bl5_4_ce [1] ) , 

. add (add [ 1 ] ) ,  .ci(ci[l]),  . logicop (logicop [ 3 : 2 ]) ,  . sri  ( sri  [  1 ] ) , 

. sum_t ( sum_t [ 1 ] ) ,  . logic_t ( logic_t [ 1 ] ) ,  . shl_t ( shl_t [ 1 ] ) , 

.  shr_t ( shr_t [ 1 ] ) , 

. zeroext_t ( zeroext_t [ 1 ] ) ,  . ret_t ( ret_t [ 1 ] ) , 

. branch (branch [ 1 ])  ,  . brdisp (brdisp [ 15 : 8 ])  ,  . selpc ( selpc [ 1 ]) , 

.  zeropc  (zeropc [1] ) , 

. dmapc (dmapc [ 1 ]) ,  . pc_ce (pc_ce [ 1 ] ) ,  . ret_ce (ret_ce [ 1 ] ) , 

. in_add (c_add) ,  .out_add(c_add[l] ) ,  . in_ci (c_ci) , 

.  out_ci (c_ci [ 1 ] ) ,  . in_branch (c_branch) ,  . out_branch (c_branch [ 1 ] ) , 

. in_sum_t (c_sum_t) ,  .out_sum_t (c_sum_t [1] ) , 

.  in_logic_t (c_logic_t ) ,  . out_logic_t (c_logic_t [ 1 ] ) , 
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. in_shl_t (c_shl_t) ,  . out_shl_t (c_shl_t [ 1 ] ) ,  . in_shr_t (c_shr_t) , 

.  out_shr_t ( c_shr_t [ 1 ] ) , 

.  in_zeroext_t (c_zeroext_t) ,  .  out_zeroext_t (c_zeroext_t [1 ] ) , 

.  in_ret_t (c_ret_t ) ,  . out_ret_t (c_ret_t [ 1 ] ) , 

. in_if_ir (c_if_ir ) ,  . out_if_ir ( c_if_ir [31:16]), 

. in_ir ( c_ir ) ,  . out_ir ( c_ir [ 31 : 1 6 ] ) ,  .in  ex_ir (c_ex_ir) , 

.  out_ex_ir (c_ex_ir [31:16]), 

. in_ex_call (c_ex_call ) ,  . out_ex_call (c_ex_call [1 ] ) , 

.  in_ex_st (c_ex_st ) ,  . out_ex_st (c_ex_st [ 1 ] ) , 

. in_ifetch (c_ifetch) ,  . out_ifetch (c_ifetch [1 ] ) ,  . in_dina (c_dma) , 

.  out_dina  (c_dma  [  1  ]  )  ,  .  in_sync_reset  ( c_sync_reset )  , 

.  out_sync_reset (c_sync_reset [ 1 ] ) ,  . in_dc_annul (c_dc_annul) , 

.  out_dc_annul (c_dc_annul [ 1 ] ) , 

. in_ex_annul ( c_ex_annul ) ,  . out_ex_annul ( c_ex_annul [ 1 ] ) , 

.  in_int_pend (c_int_pend) ,  . out_int_pend (c_int_pend [ 1 ] ) , 

. in_dc_int ( c_dc_int ) ,  . out_dc_int ( c_dc_int [ 1 ] ) , 

.  in_dma_pend (c_dma_pend) ,  . out_dma_pend (c_dma_pend [ 1 ] ) , 

. in_zero_pend (c_zero_pend) ,  . out_zero_pend ( c_zero_pend [ 1 ] ), 

. inum (2 'd2) , .errorbus (errorbus ) ) ; 

control  ctrl3  ( 

.clk(clk),  .rst(rst),  .rdy(rdy), 

. int_req(int_req[2] ) ,  . dma_req (dma_req [ 2 ] ) ,  . zerodma ( zerodma [ 2 ] ) , 

.insn(insn[47:32] ),  . al5 (al5 [2 ] ) ,  .z(z[2]),  .n(n[2]),  .co(co[2]), 

.v(v[2] ) , 

. mem_ce  (mein_ce  [ 2  ]  )  ,  .  word_nxt  (word_nxt  [2  ]  )  , 

.  read_nxt (read_nxt [2 ] )  , 

. dbus_nxt (dbus_nxt [2 ] ) ,  . dma (dma [2 ] ) , 

. rf_we ( rf_we [ 2 ] ) ,  . rna  (rna  [  1 1 : 8 ] ) ,  . rnb ( rnb [ 11 :  8 ] ) , 

. rdest (rdest [11:8] )  , 

.  fwd  ( fwd  [ 2  ]  )  ,  .  imm  (imm  [35  :  24  ]  )  ,  .  sextiinm4  ( sextimm4  [2  ]  )  , 

.  zextiinm4  ( zextimm4  [  2  ]  )  , 

. wordimm4 (wordimm4 [ 2 ] ) ,  . imml2 ( imml2 [ 2 ] ) , 

.pipe_ce (pipe_ce [2] ) ,  .bl5_4_ce (bl5_4_ce [2] ) , 

. add (add [2 ] ) ,  .ci(ci[2]),  . logicop (logicop [ 5 : 4 ] ) ,  . sr i  ( sri [ 2 ] ) , 

. sum_t (suin_t [2] ) ,  . logic_t ( logic_t [ 2 ] ) ,  . shl_t (shl_t [2 ] ) , 

.  shr_t ( shr_t [ 2 ] ) , 

. zeroext_t ( zeroext_t [ 2 ] ) ,  . ret_t ( ret_t [ 2 ] ) , 

.branch (branch[2] ) ,  . brdisp (brdisp [ 23 : 1 6 ] ) ,  . selpc  (selpc [2 ] ) , 

.  zeropc  (zeropc [2] ) , 

. dmapc (dmapc [2 ] ) ,  .pc_ce (pc_ce [2] ) ,  . ret_ce (ret_ce [2] ) , 

. in_add (c_add) ,  .out_add(c_add[2] ) ,  . in_ci (c_ci) , 

.  out_ci (c_ci [2 ] ) ,  . in_branch (c_branch) ,  . out_branch (c_branch [2 ] ) , 

. in_sum_t (c_sum_t) ,  .out_sum_t (c_sum_t [2] ) , 

.  in_logic_t (c_logic_t ) ,  . out_logic_t (c_logic_t [2 ] ) , 

. in_shl_t (c_shl_t) ,  . out_shl_t (c_shl_t [2 ] ) ,  . in_shr_t (c_shr_t) , 

.  out_shr_t ( c_shr_t [ 2 ] ) , 

. in_zeroext_t (c_zeroext_t) ,  . out_zeroext_t (c_zeroext_t [2 ] ) , 

.  in_ret_t (c_ret_t) ,  . out_ret_t (c_ret_t [2] ) , 

. in_if_ir (c_if_ir ) ,  . out_if_ir (c_if_ir [47:32]), 

. in_ir ( c_ir ) ,  . out_ir ( c_ir [ 4 7 : 32 ] ) ,  .in  ex_ir (c_ex_ir) , 

.  out_ex_ir (c_ex_ir [47:32]), 

. in_ex_call (c_ex_call ) ,  . out_ex_call (c_ex_call [2 ] ) , 

.  in_ex_st (c_ex_st ) ,  . out_ex_st (c_ex_st [2 ] ) , 

. in_ifetch (c_ifetch) ,  . out_ifetch (c_ifetch [2 ] ) ,  . in_dina (c_dma) , 

.  out_dina  (c_dma  [2  ]  )  ,  .  in_sync_reset  ( c_sync_reset )  , 

. out_sync_reset (c_sync_reset [2 ] ) ,  . in_dc_annul (c_dc_annul) , 

.  out_dc_annul (c_dc_annul [ 2 ] ) , 

. in_ex_annul ( c_ex_annul ) ,  . out_ex_annul ( c_ex_annul [2 ] ) , 

.  in_int_pend ( c_int_pend) ,  . out_int_pend (c_int_pend [ 2 ] ) , 

. in_dc_int (c_dc_int) ,  .out_dc_int (c_dc_int [2] ) , 

.  in_dma_pend (c_dma_pend) ,  . out_dma_pend (c_dma_pend [2 ] ) , 
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. in_zero_pend (c_zero_pend) ,  . out_zero_pend ( c_zero_pend [ 2 ] ), 

. inum (2 'd3) , . errorbus  (errorbus) ) ; 

//due  to  partitioning  requirements  the  tristate  data  bus  drivers  were  moved  to 
this  level 

//evidently  wired-or  nets  are  exempt 


assign 

d[7:0]  = 

(drivelo [0] ) 

?  my  res  [7:0]  : 

8  '  bz  ; 

assign 

d[15:8] 

=  (drivehi  [0]  ) 

?  my  res [15:8] 

:  8'bz; 

assign 

d[23:16] 

=  (drivelo[i; 

)  ?  my  res  [23:16 

]  :  8'bz 

assign 

d[31 :24] 

=  (drivehi [ 1 ' 

)  ?  my  res [31:24 

]  :  8'bz 

assign 

d[39:32] 

=  (drivelo[2; 

)  ?  my  res [39:32 

]  :  8'bz 

assign 

d[47:40] 

=  (drivehi [ 2 ' 

)  ?  my  res [47:40 

]  :  8'bz 

endmodule 

//  original  code  by  Jan  Gray  below 


/*  xrl6.v  --  xrl6  pipelined  RISC  processor  synthesizable  Verilog  model 

•k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

•k 

*  $Header;  /dist/xsocv/xrl 6 . v  7  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/xrl 6 . V  $ 

* 

*  7  4/06/00  10:55a  Jan 

*  polish 


module  xrl6 ( 


elk,  rst,  rdy,  ud_t,  ld_t,  udlt_t,  int_req,  dma_req,  zerodma. 


insn,  mem 

ce. 

word  nxt,  read  nxt,  dbus 

nxt,  dma,  addr  nxt,  d) ; 

parameter 

W 

16;  // 

word  width 

parameter 

N 

W-1;  // 

msb  index 

input 

elk; 

// 

global  clock 

input 

rst; 

// 

global  async  reset 

input 

rdy  ; 

// 

current  memory  access  is  ready 

input 

ud  t; 

// 

active  low  store  data  MSB 

output 

enable 

input 

-P 

zs' 
1 — 1 

// 

active  low  store  data  LSB 

output 

enable 

input 

udlt  t; 

//  active  low  store  data  MSB->LSB 

output  en 

input 

int  req; 

// 

interrupt  request 

input 

dma  req; 

// 

DMA  request 

input 

zerodma ; 

// 

zero  DMA  counter  request 

input 

[N:  0 

]  insn; 

:  // 

new  instruction  word 

output 

mem  ce; 

//  memory  access  clock  enable 

output 

word  nxt; 

// 

next  access  is  word  wide 

output 

read  nxt; 

// 

next  access  is  read 

output 

dbus  nxt; 

// 

next  access  uses  on-chip  data 

bus 

output 

dma; 

// 

current  access  is  a  DMA  transfer 

output 

[N:  0 

]  addr 

nxt;  // 

address  of  next  memory  access 

inout 

[N:  0 

]  d; 

// 

on-chip  data  bus 

//  locals 
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wire 

al5; 

// 

A  operand  msb 

wire 

z ; 

//  zero  result  condition  code 

wire 

n  ; 

//  negative  result  condition  code 

wire 

co; 

//  carry-out  result  codition  code 

wire 

v; 

//  overflow  result  condition  code 

wire 

r  f  we ; 

// 

register  file  write  enable 

wire 

[3:0] 

rna  ; 

// 

register  file  port  A  register  number 

wire 

[3:0] 

rnb  ; 

// 

register  file  port  B  register  number 

wire 

fwd; 

// 

forward  result  bus  into  A  operand  register 

wire 

[11:0] 

imm; 

// 

12-bit  immediate  field 

wire 

sextimm4 ; 

// 

sign-extend  4-bit  immediate  operand 

wire 

zextimm4  ; 

// 

zero-extend  4-bit  immediate  operand 

wire 

wordimm4 ; 

// 

word-offset  4-bit  immediate  operand 

wire 

imml2 ; 

// 

12-bit  immediate  operand 

wire 

pipe  ce; 

// 

pipeline  clock  enable 

wire 

bl5_4_ce; 

// 

b[15:4]  clock  enable 

wire 

add; 

// 

1  =>  A  +  B;  0  =>  A  -  B 

wire 

ci; 

/ /  carry-in 

wire 

[1:0] 

logicop; 

// 

logic  unit  opcode 

wire 

sri  ; 

// 

shift  right  msb  input 

wire 

sum  t; 

// 

active  low  adder  output  enable 

wire 

logic  t; 

// 

active  low  logic  unit  output  enable 

wire 

zeroext  t; 

// 

active  low  zero-extension  output  enable 

wire 

shr  t; 

// 

active  low  shift  right  output  enable 

wire 

shl  t; 

// 

active  low  shift  left  output  enable 

wire 

ret  t; 

// 

active  low  return  address  output  enable 

wire 

branch; 

//  branch  taken 

wire 

[7:0] 

brdisp; 

//  8-bit  branch  displacement 

wire 

selpc; 

// 

address  mux  selects  next  PC 

wire 

zeropc; 

//  force  next  PC  to  0 

wire 

dmapc; 

// 

use  DMA  register  in  PC  register  file 

wire 

pc  ce; 

// 

PC  clock  enable 

wire 

ret  ce; 

//  return  address  clock  enable 

//  submodules 
control  Ctrl  ( 

.clk;(clk;),  .rst(rst),  .rdy(rdy), 

. int_req ( int_req) ,  . dma_req (dma_req) ,  . zerodma ( zerodma) , 

.insn(insn),  .al5(al5),  .z(z),  .n(n),  .co(co),  .v(v), 

.mem_ce (mem_ce) ,  .word_nxt (word_nxt) ,  . read_nxt (read_nxt) , 

. dbus_nxt (dbus_nxt) ,  .dma(dma), 

. rf  we(rf  we),  .rna(rna),  .rnb(rnb), 

.fwd(fwd),  .imm(iinm),  .  sextimm4  ( sextimm4 )  ,  .  zextiinm4  ( zextimm4  )  , 

.  wordimm4  (wordiinm4 )  ,  .  iinml2  (iinml2  )  , 

.pipe_ce (pipe_ce) ,  .bl5_4_ce (bl5_4_ce) , 

.add(add),  .ci(ci),  . logicop (logicop) ,  .sri(sri), 

. sum_t ( sum_t) ,  . logic_t (logic_t) ,  . shl_t ( shl_t) ,  . shr_t ( shr_t ) , 

. zeroext_t (zeroext_t) ,  . ret_t (ret_t) , 

. branch  (branch) ,  .brdisp (brdisp) ,  . selpc  ( selpc) ,  . zeropc ( zeropc ) , 

. dmapc (dmapc) ,  .pc_ce (pc_ce) ,  . ret_ce (ret_ce) ) ; 

datapath  dp ( 

.clk;(clk;),  .rst(rst), 

. rf  we(rf  we),  .rna(rna),  .rnb(rnb), 

.fwd(fwd),  . imm (imm) ,  . sextimm4 ( sextimm4 ) ,  . zextiinm4 ( zextimm4 ) , 

.  wordimm4  (wordiinm4 )  ,  .  iinml2  (imml2  )  , 

.pipe_ce (pipe_ce) ,  .bl5_4_ce (bl5_4_ce) , 

.add(add),  .ci(ci),  . logicop (logicop) ,  .sri(sri), 

. sum_t ( sum_t) ,  . logic_t (logic_t) ,  . shl_t ( shl_t) ,  . shr_t ( shr_t ) , 

. zeroext_t (zeroext_t) ,  . ret_t (ret_t) , 

.ld_t(ld_t),  .ud_t(ud_t),  . udlt_t (udlt_t) , 

. branch  (branch) ,  .brdisp (brdisp) ,  . selpc  ( selpc) ,  . zeropc ( zeropc ) , 
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. dmapc (dmapc) ,  .pc_ce (pc_ce) ,  . ret_ce (ret_ce) , 

.al5(al5),  .z(z),  .n(n),  .co(co),  .v(v), 

. addr_nxt (addr_nxt) ,  .res(d)); 

endmodule 

*/ 


U.  XSCOUNTERV 

'timescale  Ins  /  Ips 

//'define  CTR64BIT  uncomment  for  64  bit  timer 

//'define  CTR48BIT  uncomment  this  line  for  64  or  48  bit  timer 
'include  "voterids.v" 

'define  WORD_0_ADDR  5'hOO 
'define  W0RD_1_ADDR  5'h02 
'define  W0RD_2_ADDR  5'h04 
'define  W0RD_3_ADDR  5'h06 
'define  W0RD_4_ADDR  5'h08 
'define  W0RD_5_ADDR  5'hOA 
'define  W0RD_6_ADDR  5'hOC 
'define  W0RD_7_ADDR  5'hOE 
'define  INT_ACK  5'hlO 

'define  INT_ENABLE  5'hll 
'define  INTO_ENABLE  5'hl2 
'define  INT1_ENABLE  5'hl3 
'define  INT2_ENABLE  5'hl4 
'define  INT3_ENABLE  5'hl5 
'define  INT4_ENABLE  5 'hi 6 
'define  INT5_ENABLE  5'hl7 
'define  INT6_ENABLE  5'hl8 
'define  INT7_ENABLE  5 'hi 9 
'define  TIMER_MASK  5'hlA 
'define  TIMER_ACK  5'hlC 

'define  INT_DELAY_CLK  5 

'define  TIMER  INT  3 


module  xscounter64_i  (elk,  rst, 

'ifdef  CTR64BIT 
' endif 

'ifdef  CTR48BIT 
' endif 


addr,  din,  dout,  errorbus, 
out_countO,  out_countl, 
countO,  countl, 

out_count3, count3, 
out_count2,  count2, 

ld_t,  ld_ce,  int_req_in,  int_req_out) ; 


input  elk; 

input  rst; 

input  [14:0]  addr; 
input  [47:0]  din; 
output  [15:0]  dout; 

inout  [15:0]  errorbus; 

input  [2:0]  ld_t;  //  driving  data  to  the  bus 

//  if  it  is  the  LSW 

then  latch  the  rest  into  the  temp  registers 
output  [15:0]  out_count0; 
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output  [15:0] 


out  countl; 


input  [47:0]  countO; 
input  [47:0]  countl; 

'ifdef  CTR64BIT 

output  [15:0]  out_count3; 

input  [47:0]  countS; 

' endif 

'ifdef  CTR48BIT 

output  [15:0]  out_count2; 

input  [47:0]  count2; 

' endif 

input  [2:0]  ld_ce; 

input  [7:0]  int_req_in; 

output  int  req_out; 


wor  [15:0] 
reg  [15:0] 


errorbus ; 
word  1,  word  5; 


'ifdef  CTR64BIT 
reg  [63:0] 
'elsif  CTR48BIT 
reg  [47:0] 

'  else 

reg  [31:0] 

' endif 

'ifdef  CTR64BIT 

reg  [15:0] 
reg  [15:0] 

' endif 

'ifdef  CTR48BIT 
reg  [15:0] 

' endif 

reg  [15:0] 

wire  [7:0] 
reg 

reg 

reg 

reg 

reg 

reg 


xs_count; 
xs_count; 
xs  count; 


word_3 ; 
word  7; 


word  2,  word  6; 


dout; 

int_req  in; 

int_req_out ; 

int_idle=l ' bl  ; 
int_now=l ' bO  ; 
ack_wait=l ' bO  ; 
int_delay=l 'bO; 
delay_pend=l ' bO  ; 


reg  [3:0]  delay_cnt=4 ' bO ; 


reg 

interrupts 

int 

reg 

ien 

reg 

ien 

reg 

ien 

reg 

ien 

reg 

ien 

reg 

ien 

reg 

ien 

reg 

ien 

enable=l'b0;  //  global  enable/disable  for 

0=1 'bO; 

1=1 'bO; 

2=1 'bO; 

3=1 'bO; 

4=1 'bO; 

5=1 'bO; 

'6=1  'bO; 

7=1 'bO; 
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reg  [15:0] 

timer  mask; 

reg 

timer  stateO; 

reg 

timer  statel; 

reg 

timer  state2; 

wire 

timer  interrupt 

wire 

timer  now; 

wire  [63:0]  v  xs 

count; 

wire 

got  interrupt; 

wire  [4:0] 

V  addr; 

wire  [15:0] 

V  din; 

wire 

-P 

r;' 
1 — 1 

1 

> 

wire 

V  Id  ce; 

assign  out  countO 

=  xs  count [15:0] ; 

assign  out  eountl 
'ifdef  CTR48BIT 

=  xs  count [31:16]  ; 

assign  out  count2 
' endif 

=  xs  count [47:32] ; 

'ifdef  CTR64BIT 

assign  out  count3 
' endif 

=  xs  count [63:48]  ; 

assign  got_interrupt  =  int_enable  & 
int_req_in [ 1 ] ) 

int_req_in [ 2 ] )  |  (ien_3  &  timer_interrupt ) 

int_req_in [ 4 ] )  |  (ien_5  &  int_req_in [ 5 ] ) 

int_req_in [ 6] )  |  (ien_7  &  int_req_in [ 7 ] ) ) ; 


(  (ien_0  &  int_req_in [0] )  |  (ien_l  & 

I  (ien_2  & 

I  (ien_4  & 

I  (ien_6  & 


voterlnsyn  #(1)  ld_ce_v  ( . din (ld_ce ) ,  . dout (v_ld_ce) , 

.errorbus  (errorbus) , 

.elk (elk),  .rst(rst),  . ID ( ' COUNT64_LD_CE) ) ; 
voterlnsyn  #(1)  ld_t_v  (.din(ld_t),  . dout (v_ld_t) , 

.errorbus (errorbus)  , 

.elk (elk),  .rst(rst),  . ID ( ' COUNT64_LD_T) ) ; 
voterlnsyn  #(5)  addr_v  (.din(addr),  . dout (v_addr ) , 

.errorbus (errorbus)  , 

.elk (elk),  .rst(rst),  . ID ( ' COUNT64_ADDR) ) ; 
voterlnsyn  #(16)  din_v  (.din (din),  . dout (v_din ) ,  . errorbus (errorbus ) , 

.olk(olk),  .rst(rst),  . ID ( ' COUNT64_DIN) ) ; 
voterlnsyn  #(16)  oount0_v  ( . din ( eountO ) ,  . dout (v_xs_oount [ 15 : 0 ] ) , 

. errorbus (errorbus) ,  .olk(olk),  .rst(rst), 

.ID('COUNT64_COUNTO) ) ; 

voterlnsyn  #(16)  oountl_v  ( . din ( eountl ) ,  . dout (v_xs_oount [ 31 : 1 6 ] ) , 

. errorbus (errorbus) ,  .olk(olk),  .rst(rst), 

.ID('COUNT64_COUNTl) ) ; 

'ifdef  CTR48BIT 

voterlnsyn  #(16)  oount2_v  ( . din ( oount2 ) ,  . dout (v_xs_oount [ 47 : 32 ] ) , 

. errorbus (errorbus) ,  .olk(olk),  .rst(rst), 

.ID('COUNT64_COUNT2) ) ; 

' endif 

'ifdef  CTR64BIT 

voterlnsyn  #(16)  oount3_v  ( . din ( oount3 ) ,  . dout (v_xs_oount [ 63 : 4 8 ] ) , 

. errorbus (errorbus)  ,  .olk(olk),  .rst(rst), 

.ID('COUNT64_COUNT3)  )  ; 

' endif 
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//  begin  timer  section 

assign  timer_interrupt  =  timer_statel ; 

assign  timer_now  =  |  (timer_mask;  &  v_xs_count  [  31 : 1 6 ]  )  ; 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

timer_stateO  <=  1;  //  idle 

timer_statel  <=  0;  //interrupt  active 

timer_state2  <=  0;  //interrupt  acked  but  timer  bit  still 

high,  wait  for  low 
end 

else  begin 

if  (timer_stateO  &  timer_now)  begin  //  go  to  state  1 
timer_stateO  <=  0; 
timer_statel  <=  1 ; 

end 

if  (timer_statel  &  v_addr  ==  'TIMER_ACK  &&  v_ld_ce)  begin  // 

got  ack 

if  (timer_now)  begin 

timer_statel  <=  0;  //  got  ack  timer  bit  still 

high,  wait  for  low 

timer_state2  <=  1 ; 

end 

else  begin  //  got  ack  and  timer  is 

already  low,  go  to  idle 

timer_statel  <=  0; 
timer_state0  <=  1 ; 

end 

end 

if  (timer_state2  &  ~timer_now)  begin  //  waiting  for  low 

timer  active,  got  it 

timer_state2  <=  0;  //  now 

idle  state  0 

timer_state0  <=  1 ; 

end 

end 

end 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

timer_mask  <=  0; 

end 

else  begin 

if  (v_ld_ce  &&  v_addr  ==  'TIMER_MASK)  begin 
timer_mask  <=  v_din; 

end 

end 

end 

//  end  timer  section 


/ /  begin  interrupt  section 
always  @ (posedge  elk  or  posedge  rst) 
begin 

if  (rst)  begin 

int_idle  <=  1 ; 
int_now  <=  0; 
ack_wait  <=  0; 
int_delay  <=  0; 
delay_cnt  <=  0; 
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int_req_out  <=  0; 

end 

else  begin 

if(int_idle)  begin  /*  state  0,  no  interrupts  in  process  */ 
if  (got_interrupt )  begin 
int_idle  <=  0; 
int_now  <=  1; 
int_req_out  <=  1; 

end 

end 

if(int_now)  begin  /*  got  an  interrupt  request,  signal 

processor  */ 

int_req_out  <=  0; 
int_now  <=  0; 
ack_wait  <=  1 ; 

end 

if  (ack_wait)  begin  /*  now  waiting  on  an  acknowledge  from 
the  processor  for  the  interrupt  */ 

if(ld_ce  &&  (v_addr  ==  'INT_ACK))  begin 
ack_wait  <=  0; 
int_delay  <=  1; 
delay_cnt  <=  0; 

end 

end 

if ( int_delay)  begin  /*  delay  INT  DELAY  CLOCKS  before 
processing  interrupts  again  */ 

if  (delay_cnt  <  ' INT_DELAY_CLK)  begin 
delay_cnt  <=  delay_cnt  +  1; 


end 


end 


end 


end 

else  begin 

int_delay  <=  0; 
int_idle  <=  1 ; 

end 


//  writes  for  interrupt  acknowledge  and  enables 
always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

int_enable  <=  0; 
ien_0  <=  0; 
ien_l  <=  0; 
ien_2  <=  0; 
ien_3  <=  0; 
ien_4  <=  0; 
ien_5  <=  0; 
ien_6  <=  0; 
ien_7  <=  0; 

end 

else  begin 
if  (v_ld_ce)  begin 

if  (v_addr  ==  'INT_ENABLE) 

int_enable  <=  v_din[0]; 
if  (v_addr  ==  ' INT0_ENABLE) 
ien_0  <=  v_din[0]; 
if  (v_addr  ==  ' INT1_ENABLE) 
ien_l  <=  v_din[0]; 
if  (v_addr  ==  ' INT2_ENABLE) 
ien_2  <=  v_din[0]; 
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if  (v_addr  == 

ien_3  <= 
if  (v_addr  == 

ien_4  <= 
if  (v_addr  == 

ien_5  <= 
if  (v_addr  == 

ien_6  <= 
if  (v_addr  == 

ien_7  <= 

end 


end 


end 

//  end  interrupt  section 

//  begin  counter  section 

always  @(*)  begin 
if  (rst) 

dout  <=  1 6 ' bO ; 
else  begin 
case  (v_addr) 

'WORD_0_ADDR: 

dout  <= 
'W0RD_1_ADDR: 

dout  <= 
'WORD  2  ADDR: 


ifdef  CTR48BIT 

else 

endif 

ifdef  CTR64BIT 
else  //  48BIT 
endif 


ifdef  CTR48BIT 

else 

endif 

ifdef  CTR64BIT 

else 

endif 


dout  <= 

dout  <= 

'W0RD_3_ADDR: 

dout  <= 

dout  <= 

'W0RD_4_ADDR: 

dout  <= 
'W0RD_5_ADDR: 

dout  <= 
'W0RD_6_ADDR: 

dout  <= 

dout  <= 

'W0RD_7_ADDR: 

dout  <= 

dout  <= 

default : 

dout  <= 


endcase 

end 


end 


' INT3_ENABLE) 
v_din [0] ; 

' INT4_ENABLE) 
v_din [0] ; 

' INT5_ENABLE) 
v_din [0] ; 

' INT6_ENABLE) 
v_din [0] ; 

' INT7_ENABLE) 
V  din [0]  ; 


xs_count [15:0]  ; 
word_l ; 

word_2 ; 

0; 


word_3 ; 

0; 


xs_count [15:0]  ; 
word_5 ; 

word  6; 

0; 


word_7 ; 

0; 

16 'bO; 


always  @ (posedge  elk  or  posedge  rst)  begin 
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if (rst) 


'ifdef  CTR48BIT 

'  endif 

'ifdef  CTR64BIT 

'  endif 

else 

'ifdef  CTR48BIT 
'  endif 

'ifdef  CTR64BIT 
'  endif 

'ifdef  CTR48BIT 
'  endif 

'ifdef  CTR64BIT 
'  endif 

end 


begin 

xs_count  <=  0; 
word_l  <=  0  ; 
word_5  <=  0; 

word_2  <=  0  ; 
word  6  <=  0; 


word_3  <=  0; 
word_7  <=  0  ; 

end 

begin 

xs_count  <=  v_xs_count  +  1; 

if  (~v_ld_t  &&  (addr=='WORD_0_ADDR) )  begin 
word_l  <=  v_xs_count [ 31 : 1 6 ] ; 

word_2  <=  V  xs  count [47:32]; 


word_3  <=  v_xs_count [ 63 : 4 8 ] ; 

end 

if  (~v_ld_t  &&  (addr=='WORD_4_ADDR) )  begin 
word_5  <=  v_xs_count [ 31 : 1 6 ] ; 

word_6  <=  v_xs_count [47:32]; 


word_7  <=  v_xs_count [ 63 : 4 8 ] ; 

end 

end 


//end  counter  section 


endmodule 


module  xscounter64 (elk,  rst,  Ctrl,  int_req_in,  int_req_out,  sel,  d,  errorbus) ; 
input  elk; 
input  rst; 
input  [47:0]  Ctrl ; 
input  [2:0]  sel; 

input  [23:0]  int_req_in; 
output  [2:0]  int_req_out; 
inout  [47:0]  d; 

inout  [15:0]  errorbus; 

tri  [47:0]  d; 

wor  [15:0]  errorbus; 

wire  [14:0]  addr; 

wire  [2:0]  ud_t,  ld_t,  ud_ce,  ld_ce; 

wire  [47:0]  dout; 

wire  [47:0]  countO,  countl;  //  64  bits  would  add  too  much  delay 
'ifdef  CTR48BIT 
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wire  [47:0]  count2; 


'  endif 

'ifdef  CTR64BIT 

wire  [47:0]  countS;  //  divide  count  voter  into  4  parts 

'  endif 


ctrl_dec_syn 
.ud_t (ud_t [0]  )  , 

. addr (addr [4:0] )  , 

ctrl_dec_syn 
.  ud_t (ud_t [ 1 ] )  , 

. addr (addr [9:5] )  , 


decO ( . elk (elk) ,  .rst(rst),  .ctrl(ctrl),  .sel(sel) 

. ld_t (ld_t [0] ) ,  .ud_ce (ud_ce [0] ) ,  .ld_ce (ld_ce [0] ) 
. errorbus (errorbus),  .id(' COUNT64_CTRL_DEC ) ) ; 
decl ( . elk (elk) ,  .rst(rst),  .ctrl(ctrl),  .sel(sel) 

. ld_t (ld_t [1 ] ) ,  .ud_ce (ud_ce [1] ) ,  . ld_ce (ld_ce [1 ] ) 

. errorbus (errorbus ) ,  .id('COUNT64  CTRL  DEC) ) ; 


ctrl_dec_syn 
.ud_t (ud_t [2] )  , 

.  addr ( addr [14:10]), 


xscounter64_i 
. dout (dout [15:0] )  , 


dec2 ( . elk (elk) ,  .rst(rst),  .ctrl(ctrl),  .sel(sel) 
. ld_t (ld_t [2 ] ) ,  . ud_ce (ud_ce [2 ] ) ,  . ld_ce (ld_ce [2 ] ) 

. errorbus (errorbus),  .id(' COUNT64_CTRL_DEC ) ) ; 
xscounter64  10 ( . elk ( elk) ,  .rst(rst),  .addr (addr),  .din(d) 


.  out_count0 ( count 0 [15:0] ) , 


'ifdef  CTR48BIT 


.  errorbus  (errorbus) , . ld_t (ld_t) , 

.  out_countl ( count 1 [15:0]  )  , 

.  countO  ( count 0) , . count 1 ( count 1 )  , 


'  endif 

'ifdef  CTR64BIT 
'  endif 


.  count2  (count 2 ) , . out_count2 (count 2 [15:0] )  , 
.  counts  (counts) , . out  counts  (counts [15:0]), 


. ld_ce ( ld_ce [ 0 ] ) , 

.  int_req_in (int_req_in [7:0]),  . int_req_out (int_req_out [0] ) ) ; 


xscounter 64_i  xscounter64 
■  dout (dout [SI : 16]  )  , 

.  out_count0 ( count 0 [ SI : 1 6]  )  , 

'ifdef  CTR48BIT 


il ( . elk (elk)  ,  .rst(rst),  .addr (addr), 

. errorbus (errorbus) , . ld_t (ld_t) , 

. out_countl ( count 1 [SI : 1 6] ) , 

. countO  ( count 0) ,  . countl  (countl ) , 


.din (d) 


. counts (counts ) ,  . out_count2 (counts [SI : 16 ] ) , 

'  endif 

'ifdef  CTR64BIT 


'  endif 


.  counts  (counts) , . out_countS (counts [SI :  16]  )  , 


.ld_ce(ld_ce[l] )  , 

.  int_req_in (int_req_in [15:8]),  . int_req_out (int_req_out [1 ] ) ) ; 


xscounter 64_i  xscounter64 
.  dout (dout [ 47 : S2 ] ) , 

.out  countO (countO [ 47 : S2 ])  , 


12 ( . elk (elk)  ,  .rst(rst),  .addr (addr), 

. errorbus (errorbus) , . ld_t (ld_t) , 

. out_countl (countl [ 47 : S2 ] ) , 

. countO  (countO) ,  . countl  (countl ) , 


.din (d) 


'ifdef  CTR48BIT 
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'  endif 

'ifdef  CTR64BIT 
'  endif 

.  int_req_in (int_req_in [23:16]), 


. count2 (count 2 ) , . out_count2 (count 2 [47:32]), 

. out_count3 (count3 [47:32]),  . count3  (count3) , 

.ld_ce(ld_ce[2] ) , 
int_req_out (int_req_out [2] ) ) ; 


assign 

d[7:0]  = 

ld_t[0]  ? 

8  'bz  : 

dout [7:0] ; 

assign 

d[15:8] 

=  ud  t [0] 

?  8  'bz 

dout [15:8] ; 

assign 

d[23:16] 

=  Id  t[l] 

?  8  'bz 

:  dout [23:16 

assign 

d[31 :24] 

=  ud  t[l] 

?  8  'bz 

:  dout [31:24 

assign 

d[39:32] 

=  Id  t[2] 

?  8  'bz 

:  dout[39:32 

assign 

d[47:40] 

=  ud  t[2] 

?  8  'bz 

:  dout [47: 40 

endmodule 


V.  xsoc.v 


/*  xsoc.v  --  XSOC  System-on-a-Chip  synthesizable  Verilog  model 

■k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

k 

*  $Header:  /dist/xsocv/xsoc . v  8  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/xsoc .V  $ 

k 

*  8  4/06/00  10:55a  Jan 

*  polish 
*/ 

/*  last  modified  by  David  Dwiggins,  24  August  2008.  Adapted  to  use 

*  TMR/ECC  functionality  for  fault-tolerance.  */ 

/*  original  version  by  Jan  Gray  included  at  the  end  of  file  */ 
'timescale  Ins  /  Ips 


module 


XSOC  (elk,  rst,  Ctrl,  ctrlO 

,  sel,  d. 

int  req,  errorbus,  addr  nxt) 

parameter 

W 

=  16;  // 

word  width 

parameter 

N 

=  W-1;  // 

msb  index 

parameter 

XAN 

=  16;  // 

external  address  msb  index 

//  ports 

input 

elk; 

// 

global  clock 

input 

rst; 

// 

global  async  reset 

output  [47:0] 

Ctrl; 

input  [2:0] 

CtrlO; 

//  insert 

wait  states  for  10 

output  [23:0] 

sel  ; 

inout  [47:0] 

1  d; 

input  [2:0] 

int  req; 

inout  [15:0] 

errorbus ; 

output  [47:0] 

addr  nxt; 

//  locals 

wire  [47:0] 

addr  nxt; 

//  address  of  next  memory  access 

wire  [47:0] 

d; 

// 

on-chip  data  bus 

wire  [47:0] 

xd;  // 

RAM  bus 

wire  [2:0] 

mem  ce; 

// 

memory  access  clock  enable 
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wire  [2:0]  word_nxt;  //  next  access  is  word  wide 

wire  [2:0]  read_nxt;  //  next  access  is  read 

wire  [2:0]  dbus_nxt;  //  next  access  uses  on-chip  data  bus 

wire  [2:0]  sub;  //  ram  store  Isb  into  upper  byte 

wire  [2:0]  sib;  //  ram  store  lower  byte 

wire  [2:0]  rub;  //  ram  read  upper  byte  into  data  bus  Isb 

wire  [2:0]  we;  //  ram  write  enable  upper 

wire  [2:0]  uxd  t;  //  RAM  MSB  data  out  enable 


wire 

[2:0] 

Ixd  t; 

//  RAM 

LSB  data  out 

enable 

wire 

[2:0] 

dma; 

// 

current  access  is  a 

DMA  transfer 

wire 

[2:0] 

dma  req; 

// 

DMA  request 

wire 

[2:0] 

zerodma ; 

// 

zero  DMA  counter  request 

wire 

[2:0] 

rdy  ; 

// 

current  memory  access  is 

ready 

wire 

[2:0] 

ud  t; 

// 

active  low 

store  data 

MSB 

output 

enable 

wire 

[2:0] 

-P 

r;' 
1 — 1 

// 

active  low 

store  data 

LSB 

output 

enable 

wire  [2:0]  udlt_t;  //  active  low  store  data  MSB->LSB 

output  enable 

wire  [23:0]  sel;  //  on-chip  peripheral  select 

wire  [47:0]  Ctrl;  //  abstract  control  bus 

wire  [47:0]  xa;  //  RAM  address  register 

wire  [47:0]  areg,  breg; 

wire  [2:0]  pipe_ce; 

wire  [47:0]  memdta; 

wire  [47:0]  mem_addr;  //  memory  next  address 

wire  [47:0]  if_ir,  ir,  ex  ir; 

wire  [2:0]  fwd; 

wire  [35:0]  imm; 

wire  [2:0]  sextimm4; 

wire  [2:0]  zextimm4; 

wire  [2:0]  wordimm4; 

wire  [2:0]  imml2; 

wire  [2:0]  drivelo; 

wire  [2:0]  drivehi; 

wor  [15:0]  errorbus; 

wire  [17:0]  syndrome; 

wire  [2:0]  ctrlO; 


wire 

[2:0] 

int  req; 

/ /  interrupt  request 

wire 

[2:0] 

vack; 

wire 

[2:0] 

vreset; 

wire 

[2:0] 

vreq; 

assign  vreset  =  3'bO;  //  no  vga  so  disable  DMA 

assign  vreq  =  3'bO; 

//  submodules 
xrl 6  p ( 

.clk;(clk;),  .rst(rst),  .rdy(rdy), 

.ud_t(ud_t),  .ld_t(ld_t),  . udlt_t (udlt_t) , 

. int_req ( int_req) ,  . dma_req (dma_req) ,  . zerodma ( zerodma) , 

. insn (xd) ,  .mem_ce (mem_ce) , 

. word_nxt (word_nxt) ,  . read_nxt ( read_nxt ) ,  . dbus_nxt (dbus_nxt) , 

.dma(dma),  . addr_nxt (addr_nxt) ,  .d(d),  .areg(areg),  .breg(breg), 

.pipe_ce (pipe_ce) , 

.memdta (memdta) , . errorbus (errorbus) , 

. if_ir (if_ir) ,  .ir(ir),  . ex_ir (ex_ir ) , 

.fwd (fwd),  .imm (imm),  . sextimm4 ( sextimm4 )  ,  . zextimm4 ( zextimm4 ) , 

.  wordimm4 (wordimm4 ) ,  . imml2 (imml2 ) , 

. drivelo (drivelo) ,  . drivehi (drivehi ) ) ; 
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//  ECC  Block  RAM 


bram_ecc  bram_eccl ( . elk (elk) ,  .rst(rst),  .sub(sub),  .slb(slb),  .rub(rub), 

. uxd_t (uxd_t) ,  . lxd_t (lxd_t) ,  .memdta (memdta) , 

.mem_addr (mem_addr) ,  .we (we), 

.d(d),  .xd(xd),  .  errorbus  (errorbus)  ,  .inem_ce  (mein_ce)  , 

.addr_nxt (addr_nxt) ) ; 

memctrl  mcl ( 

.clk(clk),  .rst(rst), 

.mem_ce (mein_ce)  ,  .word_nxt (word_nxt)  ,  . read_nxt (read_nxt)  , 

. dbus_nxt (dbus_nxt) ,  .dma(dma),  . addr_nxt (addr_nxt) , 

. dma_req_in (vreq) ,  . zero_req_in (vreset) , .ctrl0(ctrl0[0] ), 

. rdy (rdy [ 0] ) ,  . ud_t (ud_t [ 0 ] )  ,  . ld_t ( ld_t [ 0 ] )  , 

.udlt_t (udlt_t [0] )  , 

. dma_req (dma_req [ 0] ) ,  . zerodma ( zerodma [ 0] ) , 

. uxd_t (uxd_t [ 0] ) ,  .lxd_t (lxd_t [0] ) ,  . store_ub ( sub [ 0 ] ) , 

. store_lb (sib [0 ] ) ,  . read_ub (rub [0 ] ) , 

. wr ite_en (we [ 0 ] ) , 

. sel  (sel  [7 : 0] ) ,  . Ctrl  (Ctrl [ 15 : 0 ]) ,  . dma_ack (vack [ 0 ] ) , 

.errorbus (errorbus) ) ; 

memctrl  mc2 ( 

.clk(clk),  .rst(rst), 

.mem_ce (mem_ce) ,  .word_nxt (word_nxt) ,  . read_nxt (read_nxt) , 

. dbus_nxt (dbus_nxt) ,  .dma(dma),  . addr_nxt (addr_nxt) , 

. dma_req_in (vreq) ,  . zero_req_in (vreset) , .ctrl0(ctrl0[l] ), 

. rdy (rdy [ 1 ] ) ,  . ud_t (ud_t [ 1 ] ) ,  . ld_t ( ld_t [ 1 ] ) , 

. udlt_t (udlt_t [ 1 ] )  , 

. dma_req (dma_req [ 1 ] ) ,  . zerodma ( zerodma [ 1 ] ) , 

. uxd_t (uxd_t [ 1 ] ) ,  . lxd_t (lxd_t [1 ] ) ,  . store_ub ( sub [ 1 ] ) , 

. store_lb (sib  [1 ] ) ,  . read_ub (rub  [1 ] ) , 

. wr ite_en (we [ 1 ] ) , 

. sel  ( sel  [  15  :  8 ] ) ,  . Ctrl  (Ctrl  [31 : 16 ] ) ,  . dma_ack (vack [ 1 ] ) , 

.errorbus (errorbus) ) ; 

memctrl  mc3  ( 

.clk(clk),  .rst(rst), 

.mem_ce (mem_ce) ,  .word_nxt (word_nxt) ,  . read_nxt (read_nxt) , 

. dbus_nxt (dbus_nxt) ,  .dma(dma),  . addr_nxt (addr_nxt) , 

. dma_req_in (vreq) ,  . zero_req_in (vreset) , .ctrl0(ctrl0[2] ), 

. rdy (rdy [2 ] ) ,  . ud_t (ud_t [ 2 ] ) ,  . ld_t (ld_t [2 ] ) , 

.udlt_t (udlt_t [2] )  , 

. dma_req (dma_req [2 ] ) ,  . zerodma ( zerodma [2 ] ) , 

. uxd_t (uxd_t [2 ] ) ,  . lxd_t (lxd_t [2 ] ) ,  . store_ub (sub [2 ] ) , 

. store_lb  (sib  [2 ] ) ,  . read_ub (rub [2 ] ) , 

. wr ite_en  (we [ 2 ] ) , 

. sel  (sel  [23  : 16] ) ,  . Ctrl  (Ctrl [ 47 ; 32 ] ) ,  . dma_ack (vack [2 ] ) , 

.errorbus (errorbus) ) ; 

//  data  bus  isn't  driven  all  the  time;  floating  inputs  cause  false 
syndromes  to  be  reported 

datapulldown  datapulldownl (d) ; 

//  make  sure  the  errorbus  is  assigned 
assign  errorbus=l 6 ' bO ; 

endmodule 

//  original  code  below 

/*  xsoc.v  --  XSOC  System-on-a-Chip  synthesizable  Verilog  model 
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■k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

k 

*  $Header:  /dist/xsocv/xsoc . v  8  4/06/00  10:55a  Jan  $ 

*  $Log:  /dist/xsocv/xsoc .V  $ 

k 

*  8  4/06/00  10:55a  Jan 

*  polish 


module  xsoc  ( 


enable 


elk,  rst,  par 

d,  par  s. 

r. 

g/ 

b,  hsync  n,  vsync  n. 

ram  ce  n,  ram 

oe  n,  ram 

we 

res8031,  xa,  xa  0,  xd) ; 

parameter 

W 

= 

16;  //  word  width 

parameter 

N 

-  1 

N-1;  //  msb  index 

parameter 

XAN 

16;  //  external  address  msb  index 

//  ports 

input 

elk; 

//  global  clock 

input 

rst; 

//  global  async  reset 

input  [4:0] 

par  d; 

// 

parallel  port  data  in 

output  [6:3] 

par  s; 

// 

parallel  port  status  out 

output  [1:0] 

r,  g,  b; 

// 

(red,  green,  blue)  outputs 

output 

hsync  . 

n ; 

//  active  low  horizontal  sync  output 

output 

vsync  . 

n ; 

//  active  low  vertical  sync  output 

output 

ram 

ce 

n; 

//  active  low  external  RAM  chip  enable 

output 

ram 

oe 

n; 

//  active  low  external  RAM  output  enable 

output 

ram 

we 

n; 

//  active  low  external  RAM  write  enable 

output 

res8031 ; 

//  reset  external  8031  MCU 

output  [XAN:0 

]  xa; 

//  external  RAM  address  bus 

reg 

[ XAN : 0 ] 

xa 

; 

output 

xa  0; 

//  external  RAM  address  Isb 

inout  [7:0] 

xd; 

//  external  RAM  data  bus 

tri 

[7:0]  xd; 

//  locals 

wire  [N:0] 

addr  nxt; 

// 

address  of  next  memory  access 

wire  [N:0] 

d; 

//  on-chip  data  bus 

wire 

mem  ce; 

//  memory  access  clock  enable 

wire 

word  nxt; 

// 

next  access  is  word  wide 

wire 

read  nxt; 

// 

next  access  is  read 

wire 

dbus  nxt; 

// 

next  access  uses  on-chip  data  bus 

wire 

dma; 

// 

current  access  is  a  DMA  transfer 

wire 

int  req; 

// 

interrupt  request 

wire 

dma  req; 

// 

DMA  request 

wire 

zerodma ; 

// 

zero  DMA  counter  request 

wire 

rdy  ; 

// 

current  memory  access  is  ready 

wire 

ud  t; 

// 

active  low  store  data  MSB  output  enable 

wire 

ld_t; 

// 

active  low  store  data  LSB  output  enable 

wire 

udlt  t; 

//  active  low  store  data  MSB->LSB  output 

wire 

vreq; 

// 

video  word  DMA  request 

wire 

vreset; 

//  video  word  address  counter  reset 

wire 

vack; 

// 

video  DMA  acknowledge 

wire  [7:0] 

sel  ; 

// 

on-chip  peripheral  select 

wire  [15:0] 

Ctrl; 

// 

abstract  control  bus 

reg  [7:0] 

xdq; 

// 

RAM  external  data  half-cycle  capture 

register 
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//  submodules 
xrl 6  p ( 

.clk;(clk;),  .rst(rst),  .rdy(rdy), 

.ud_t(ud_t),  .ld_t(ld_t),  . udlt_t (udlt_t) , 

. int_req ( int_req) ,  . dma_req (dma_req) ,  . zerodma ( zerodma) , 

. insn ( { xdq, xd} ) ,  .mem_ce (mem_ce ) , 

. word_nxt (word_nxt) ,  . read_nxt ( read_nxt ) ,  . dbus_nxt (dbus_nxt) , 

.dma(dma),  .addr_nxt (addr_nxt) ,  .d(d)); 

memctrl  me ( 

.clk;(clk),  .rst(rst), 

.mem_ce (mem_ce) ,  .word_nxt (word_nxt) ,  . read_nxt (read_nxt) , 

. dbus_nxt (dbus_nxt) ,  .dma(dma),  . addr_nxt (addr_nxt) , 

. dma  req  in (vreq) ,  .zero  req  in  (vreset) , 

.rdy(rdy),  .ud_t(ud_t),  .ld_t(ld_t),  . udlt_t (udlt_t ) , 

. int_req ( int_req) ,  . dma_req (dma_req) ,  . zerodma ( zerodma) , 

. ram_oe_n (ram_oe_n) ,  . ram_we_n ( ram_we_n ) ,  .xa_0(xa_0), 

. xdout_t (xdout_t) ,  .uxd_t (uxd_t) ,  . lxd_t ( lxd_t) , 

.sel(sel),  .ctrl(ctrl),  . dma_ack (vack) ) ; 

vga  vga ( 

.clk(clk),  .rst(rst),  .vack(vack),  . pixels_in ( { xdq, xd} ) , 

.vreq (vreq),  . vreset (vreset ) , 

. hsync_n (hsync_n) ,  . vsync_n (vsync_n ) ,  .r(r),  .g(g),  .b(b)); 

//  External  RAM  interface 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst) 

xa  <=  0 ; 

else  if  (mem_ce) 

xa[16:0]  <=  {I'bO,  addr_nxt [ 1 5 : 0 ]  } ;  //  use  low  64  KB  of 

SRAM 

end 

always  @ (negedge  elk  or  posedge  rst)  begin 
if  (rst) 

xdq  <=  0; 

else 

xdq  <=  xd; 

end 

assign  xd  =  xdout_t  ?  8'bz  :  d[7:0]; 

assign  d[7:0]  =  lxd_t  ?  8'bz  :  xd; 
assign  d[15: 8]  =  uxd_t  ?  8'bz  ;  xdq; 

assign  ram_ce_n  =  0; 

assign  res8031  =  1; 

//  On-chip  peripherals 
xraml6xl6  iram( 

.clk(clk),  .rst(rst),  .ctrl(ctrl),  . sel  ( sel [ 0 ] ) ,  .d(d)); 

xin8  parin ( 

.clk(clk),  .rst(rst),  .ctrl(ctrl),  . sel  ( sel  [  1 ] ) ,  .d(d[7:0]), 

. i ( { 3 'bO, par_d} ) ) ; 

xout4  parout ( 

.clk(clk),  .rst(rst),  .ctrl(ctrl),  . sel  (sel [2 ] ) ,  .d(d[3:0]), 

.q(par_s) ) ; 

endmodule 

*/ 
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W.  XSOC  PC104.V 


'timescale  Ins  /  Ips 
'include  "voterids.v" 

//  Code  translated  from  Mindy  Surratt's  pci 04 IntArm . vhd 
//  and  modified  to  work  with  the  CFTP  XSOC  by  David  Dwiggins 


//--  Constants,  formerly  in  pci 04 IntPack . vhd 


'define  C  LowAddress 

0x340 

10 'bllOlOOOOOO 

// 

'define  C  HighAddress 

0x368 

10 'bllOllOlOOO 

// 

'define  C  DATA  ADDR 

0x340 

10 'bllOlOOOOOO 

// 

'define  C  TEST  ADDR 

0x341 

10 'bllOlOOOOOl 

// 

//'define  C  RESET 

10  'bllOlOOOOlO 

// 

0x342 

'define  C  STATUS  ADDR 

0x342 

10 'bllOlOOOOlO 

// 

'define  C  INTACK  ADDR 

0x344 

10 'bllOlOOOlOO 

// 

'define  C  INTOFF  ADDR 

0x345 

10 'bllOlOOOlOl 

// 

'define  C  INTON  ADDR 

0x346 

'define  STATUS  REG  ALLOW  PROC  READ  0 
'define  STATUS  REG  BLOCK  PROC  WRITE  1 
'define  STATUS  REG  FIFO  ALMOST  FULL  2 

10 'bllOlOOOllO 

// 

'define  XS  PC104  DATA  ADDR 

0x00 

5  'bOOOOO 

// 

'define  XS  PC104  FULL  ADDR 

0x02 

5  'bOOOlO 

// 

'define  XS  PC104  EMPTY  ADDR 

0x03 

5  'bOOOll 

// 

'define  XS  PC104  ALMOST  FULL  ADDR 

'define  XS  PC104  GOT  DATA 

5  'bOOlOO 

5 'bOOlOl 

// 

0x04 

//  0x05 


module  xsoc_pcl04_mod (elk,  rst,  int_req,  d,  T_DATA_io,  DATA_io_out, 

DATA_io_en,  T_ADDRESS_i,  T_IOREAD_i,  T_IOWRITE_i,  T_IOCS_i 

T_INTRPT_o, 

fifo_full,  dout,  fifo_wren,  fifo_rd,  fifo_rd_clk,  fifo_din 

fifo_dout, 

fifo_empty,  f ifo_almost_full,  ld_t,  ld_ce,  addr,  errorbus); 
input  elk; 

input  rst; 

output  int_req; 

input  [47:0]  d; 

input  [7:0]  T_DATA_io; 

output  [7:0]  DATA_io_out; 
output  DATA_io_en; 

input  [9:0]  T_ADDRESS_i; 

input  T_IOREAD_i; 

input  T_IOWRITE_i; 

input  T_IOCS_i; 

output  T_INTRPT_o; 

input  fifo_full; 

output  [15:0]  dout; 

output  [7:0]  fifo_din; 
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output 

fifo  wren; 

output 

fifo  rd; 

output 

fifo  rd  elk 

input  [7:0] 

fifo  dout; 

input 

fifo  empty; 

input 

fifo  almost  full; 

input  [2:0] 

-P 

r;' 
1 — 1 

input  [2:0] 

Id  ce; 

input  [14:0] 

addr  ; 

inout  [15:0] 

errorbus ; 

wor  [15:0] 

errorbus ; 

wire 

elk; 

wire 

rst; 

wire  [47:0] 

d; 

wire 

int  req; 

wire  [7:0] 

T  DATA  io; 

wire  [9:0] 

T  ADDRESS  i; 

wire 

T  I OREAD  i; 

wire 

T  lOWRITE  i; 

wire 

T  IOCS  i; 

reg  T_INTRPT_o; 

//  Signals  that  were  external  to  the  verilog  PC/104  interface  version 
//  but  are  now  attached  to  the  XSOC  interface  code 
wire  DATA_ACK_i; 
wire  [7:0]  DATA_i; 
reg  [7:0]  DATA_o; 
wire  DATA_WREN_i ; 
wire  FIFO  FULL  o; 


reg  S_RangeCheck; 
wire  S_Decode; 
reg  [7:0]  S_IOTemp; 

//  Data  for  lORead  (top  level  writing  to  PC/104) 

wire  [8:0]  DATA_i_reg; 

wire  [7:0]  status_reg_iord; 

//  Flags  to/from  top  level  for  receiving  data  from  PC/104 
reg  data_ack; 
reg  data_rdy; 


//  fifo  signals 
wire 


reg 

wire 

wire 

wire 

wire 

wire 

wire 

wire 


[7:0] 

[7:0] 


fifo 

fifo 

fifo 

fifo 

fifo 

fifo 

fifo_din; 

fifo_dout; 

fifo 


rd_clk; 

rd; 

full;  //  not  used 
almost_f ull ; 
empty; 

ainit;  //  not  used 


wren  ; 


//INTRPT  signals 
reg  intrpt_ack; 

reg  intrpt  on; 

reg  intrpt  off; 

reg  intrpt_active ; 

reg  [31:0]  intrpt_cnt; 
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//  Signals  to  clock  PC/104  pins 
reg  got_data; 

reg  got_data_reg; 

reg  wr_reset; 

reg  [7:0]  s_data_i; 

reg  [9:0]  s_address_i; 

reg  iow  d; 

//  XSOC  Interface  signals 
wire  [2:0]  ld_t,  ld_ce; 

wire  [4:0]  v_addr; 

wire  v_ld_t,  v_ld_ce; 

wire  [7:0]  v_d; 

reg  [15:0]  dout; 

assign  int_req=data_rdy; 

voterlnsynh  # (8)  d_v  ( . din ( { d [ 39 : 32 ] , d [2 3 : 1 6 ] , d [ 7 : 0 ] } ) , 

.dout(v_d),  . errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( ' PC104_MO_D_V) ) ; 

voterlnsynh  #(1)  ld_ce_v  ( . din (ld_ce ) ,  . dout (v_ld_ce) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( ' PC104_MO_LD_CE_V) ) ; 

voterlnsynh  #(1)  ld_t_v  (.din(ld_t),  . dout (v_ld_t)  , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( ' PC104_MO_LD_T_V) ) ; 

voterlnsynh  #(5)  addr_v  (.din(addr),  . dout (v_addr ) , 

.  errorbus  (errorbus ) ,  .clk(clk),  .rst(rst),  . ID ( ' PC104_MO_ADDR  V) ) ; 


always  @ (v_addr  or  DATA_o  or  fifo_full  or  fifo_empty  or 
f if o_almost_f ull  or  data_rdy)  begin 
case  (v_addr) 

' XS_PC1 0  4_DATA_ADDR : 

dout  <=  { 8 'bO, DATA_o [7 : 0] } ; 

' XS_PC1 0  4_FULL_ADDR : 

dout  <=  {15'b0,fifo_full}; 

'XS_PC104_EMPTY_ADDR: 

dout  <=  {15'b0,fifo_empty}; 
'XS_PC104_ALMOST_FULL_ADDR: 

dout  <=  {15'b0,fifo_alinost_full}; 
'XS_PC104_GOT_DATA: 

dout  <=  { 15 'bO, data_rdy } ; 
default : 

dout  <=  16 'bO; 

endcase 

end 


//  writes  to  ARM 

assign  DATA_WREN_i  =  v_ld_ce; 

assign  DATA_i  =  v_d[7:0]; 

//  data  driven  to  the  data  bus,  acknowledge  receipt  to  ARM 
assign  DATA_ACK_i  =  ~v_ld_t;  //  active  low  signal 

// 

//  Address  Range  Check  lines 

// 

always  @ (T_ADDRESS_i)  begin 

if  ( (T_ADDRESS_i  >=  ' C_LowAddress )  &&  (T_ADDRESS_i 

<=' C_HighAddress) ) 
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end 


S_RangeCheck  <=  1; 

else 

S_RangeCheck  <=  0; 


// 

//  Decode  Line 

// 

//  New  signal  T_CARD_BLE0_i  added  7  Jun  2006 

//  S_Decode  <=  when  (T_IOCS_i  =  'O'  and  S_RangeCheck 

T_CARD_BLE0_i= ' 0 ' )  ^ 

assign  S_Decode  =  ((~T_IOCS_i)  &  S_RangeCheck) ; 


'  1  ' 


//  Bidirctional  Data  10 

// 

//S_IOTemp  either  status  data  or  experiment  data  (from  FIFO) , 

//  set  in  read  process 

//  assign  T_DATA_io  =  (S_Decode  &  (~T_IOREAD_i ) )  ?  S_IOTemp  :  8'bz; 

assign  DATA_io_en  =  (S_Decode  &  (~T_IOREAD_i) ) ; 
assign  DATA_io_out  =  S_IOTemp; 


//MLS  this  should  work  for  new  board  (right  now  they  don't  overlap  right) 
//iow  <=  'O'  when  (T_IOCS_i  =  'O'  and  T_IOWRITE_i  =  '0')  else  ' 1 ' ; 

//ior  <=  'O'  when  (T_IOCS  i  =  'O'  and  T_IOREAD  i  =  '0')  else 


always  @ (posedge  elk)  begin 
iow_d  <=  T_IOWRITE_i; 

end 

always  @ (posedge  elk  or  posedge  wr_reset)  begin 
if  (wr  reset)  begin 

got_data  <=  0; 

end 

else  begin 

//  New  signal  T_CARD_BLE0_i  added  7  Jun  2006 

//  if  Ts_decode  =  '!'  and  T_CARD_BLE0_i= '  0 '  and  T_IOWRITE_i  =  'O' 

iow_d  =  ' 1 ' )  then 

if(S_Decode  &  (~T_IOWRITE_i)  &  iow_d)  begin 
got_data  <=1; 
s_data_i  <=T_DATA_io; 
s_address_i  <=  T_ADDRESS_i; 

end 

end 

end 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

got_data_reg  <=  0; 
wr  reset  <=  1; 

end 

else  begin 

got_data_reg  <=  got_data; 
wr_reset  <=  got_data_reg; 

end 

end 
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and 


and 


//  ARM  Processor  Writes  to  PC/104 

always  @ (posedge  elk  or  posedge  rst)  begin 
if  (rst)  begin 

data_ack  <=0; 
data_rdy  <=0; 

intrpt_ack  <=0; 
intrpt_on  <=0; 
intrpt_off  <=  0; 

end 

else  begin 

data_ack  <=  DATA_ACK_i; 

if  (data_ack)  begin 
data_rdy  <=  0; 

end 


intrpt_ack  <=  0; 
intrpt_on  <=  0; 
intrpt_off  <=  0; 

if(got_data)  begin 

case  (s_address_i) 

' C_DATA_ADDR : 
begin 

DATA_o[7:0]  <=  s_data_i;  //  will 

be  the  XSOC  data  bus 

data_rdy  <=  1 ; 

end 

'C_INTACK_ADDR: 

intrpt_ack  <=  1; 

'C_INTON_ADDR: 

intrpt_on  <=  1; 

'C_INTOFF_ADDR: 

intrpt_off  <=  1; 


end 


end 


end 


endcase 


//  ARM  Processor  Reads  from  PC/104 

always  @ (T_ADDRESS_i,  DATA_i_reg, status_reg_iord)  begin 
case  (T_ADDRESS_i ) 

' C_DATA_ADDR : 
begin 

fifo_rd  <=  1; 

S_IOTemp  <=  DATA_i_reg; 

end 

'C_STATUS_ADDR: 

begin 

fifo_rd  <=  0; 

S_IOTemp  <=status_reg_iord;  //processor 

read  status  reg  (tells  whether  ready  for  write/read) 

//status_reg_iord (0)  =  not  fifo_empty  (ie  processor  can  read 

a  byte) 


//status_reg_iord  (1 )  =  1  when  board  is  busy  reading  a  byte 

(proc  can't  write  yet) 


171 


//O  when  board  is  ready  for  processor  to  write  next  byte 


end 


//status_reg_iord (2 )  =  fifo_almost_full  (not  used...) 
end 

default  : 

begin 

fifo_rd  <=  0; 

S_IOTemp  <=  0; 

end 

endcase 


always  @ (posedge  elk  or  posedge  rst)  begin 

if  (rst)  begin 

T_INTRPT_o  <=  1; 

intrpt_active  <=1 ; 

end 

else  begin 

intrpt_cnt  <=  intrpt_cnt  +  1; 

if  (intrpt_off) 

intrpt_active  <=  0; 

else  if  (intrpt_on) 

intrpt_active  <=  1; 

if  (intrpt_ack) 

T_INTRPT_o  <=  1; 

else  if  ( fifo_almost_full  &  intrpt_active) 
T_INTRPT_o  <=  0; 

end 

end 


assign  status_reg_iord [ 7 : 3 ]  =  5'bO; 

assign  status_reg_iord [ ' STATUS_REG_ALLOW_PROC_READ]  =  ~fifo_einpty; 

//if  data  in  fifo,  tell  processor  it  can  read  a  byte 
// (status_reg_iord(0)  =  for  ok  to  read) 

assign  status_reg_iord [ ' STATUS_REG_BLOCK_PROC_WRITE]  =  (got_data 
data_rdy) ; 

//if  FPGA  is  still  processing  previous  byte  from  PC/104, 

//tell  proc  we  don't  want  any  more  data  yet 
// (status_reg_iord(l)  =  for  not  ok  to  write) 

assign  status_reg_iord [ ' STATUS_REG_FIFO_ALMOST_FULL]  =  fifo_almost_full ; 

assign  DATA_RDY_o  =  (data_rdy  &  ( ~DATA_ACK_i )  &  (~data_ack) ) ; 

assign  fifo_rd_clk  =  T_IOREAD_i;  //changed  since  active  low 

//  assign  f ifo_din [ 15 : 8 ]  =  8'bO; 
assign  f ifo_din [ 7 : 0 ]  =  DATA_i; 
assign  DATA_i_reg  =  f if o_dout [ 7 : 0 ] ; 

assign  FIFO_FULL_o  =  DATA_WREN_i  ?  I'bl  ;  f if o_almost_f ull ; 
assign  fifo_wren  =  DATA_WREN_i ; 
assign  fifo_ainit  =  I'bO; 

endmodule 


module  xsoc  pcl04 (elk,  rst,  Ctrl,  int  req,  sel,  d,  T  DATA  io 


T_ADDRESS_i,  T_IOREAD_i, 
fifo_full,  errorbus); 
input  elk; 

input  rst; 

input  [47:0]  Ctrl; 

output  [2:0] int_req; 


T  lOWRITE  i,  T  IOCS  i. 


[2:0] 

[47:0] 

[7:0] 

[9:0] 


input 
inout 
inout 
input 
input 
input 
input 
output 

output 


sel  ; 

d; 

T_DATA_io; 

T_ADDRESS_i; 

T_IOREAD_i; 

T_IOWRITE_i; 

T_IOCS_i; 

T_INTRPT_o; 

fifo  full; 


inout  [15:0]  errorbus; 


T_INTRPT_o, 


wire 

wire 

wire  [47:0] 
wire  [2:0] 
tri  [47:0] 

wire  [2:0] 
tri  [7:0] 

wire  [9:0] 
wire 
wire 
wire 

wor  [15:0] 


elk; 

rst; 

Ctrl; 
sel  ; 

d; 

int_req; 

T_DATA_io; 

T_ADDRESS_i; 

T_IOREAD_i; 
T_IOWRITE_i; 
T_IOCS_i; 
errorbus ; 


//  fifo 
wire 
wire 
wire 
wire 
wire 
wire  [23:0] 
wire  [7:0] 
wire  [2:0] 


_rd_clk; 
rd; 

f  if  o_ 
f  if  o_ 
f  if  o_ 
f ifo_din; 
fifo_dout; 
fifo  wren; 


signals 
[2:0]  fifo 
[2:0]  fifoj 


full; 

almost 

empty; 


full; 


//  XSOC  Interface  signals 
wire  [14:0]  addr; 

wire  [2:0]  ud_t,  ld_t,  ud_ce,  ld_ce; 


wire  [47:0]  dout; 


ctrl_dec_syn 
ud_t (ud_t [0] )  , 

addr (addr [4:0] ) , 

ctrl_dec_syn 
ud_t (ud_t [ 1 ] ) , 

addr (addr [9:5] ) , 


decO  ( . elk  (elk) ,  .rst(rst),  .ctrl(ctrl),  .sel(sel) 

.ld_t (ld_t [0] ) ,  .ud_ce (ud_ce [0] ) ,  .ld_ce (ld_ce [0] ) 
. errorbus (errorbus),  .id(' PCIO  4_CTRL_DEC ) ) ; 
decl ( . elk  (elk) ,  .rst(rst),  .ctrl(ctrl),  .sel(sel) 

. ld_t (ld_t [1 ] ) ,  .ud_ce (ud_ce [1] ) ,  . ld_ce (ld_ce [1 ] ) 

. errorbus (errorbus ) ,  .id('PC104  CTRL_DEC) ) ; 


ctrl_dec_syn  dec2 ( . elk (elk) ,  .rst(rst),  .ctrl(ctrl),  .sel(sel) 
ud  t (ud_t [2] ) , 
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. ld_t (ld_t [2] )  ,  . ud_ce (ud_ce [2 ] )  ,  . ld_ce (ld_ce [2 ] ) , 

.  addr ( addr [14:10]), 

. errorbus (errorbus),  .id(' PC104_CTRL_DEC ) ) ; 


assign  d[7:0]  =  ld_t[0]  ?  8'bz  ;  dout[7:0]; 
assign  d[15:8]  =  ud_t[0]  ?  8'bz  :  dout[15:8]; 
assign  d[23:16]  =  ld_t[l]  ?  8'bz  :  dout [23 : 1 6 ] ; 

assign  d[31:24]  =  ud_t[l]  ?  8'bz  :  dout [31 : 24 ] ; 

assign  d[39:32]  =  ld_t[2]  ?  8'bz  ;  dout [ 3 9 : 32 ]  ; 

assign  d[47;40]  =  ud_t[2]  ?  8'bz  :  dout [47:40]; 


[23:0]  Data_io; 

[2:0]  Data_io_en; 

[7:0]  v_Data_io; 

v_D  a  t  a_i o_e  n ; 

[2:0]  INTRPT_o; 

voterln  #(8)  Data_io_v  ( . din (Data_io) ,  . dout (v_Data_io) ) ; 

voterln  #(1)  Data_io_en_v  ( . din (Data_io_en) ,  . dout ( v_Data_io_en ) ) ; 

voterln  #(1)  INTRPT_o_v  ( . din ( INTRPT_o) ,  . dout (T_INTRPT_o ) ) ; 

assign  T_DATA_io  =  v_Data_io_en  ?  v_Data_io [7 : 0]  :  8'bz; 


wire 

wire 

wire 

wire 

wire 


xsoc_pcl04_mod 
.  int_req ( int_req [ 0 ] )  , 

.  DATA_io_en (Data_io_en [ 0] ), 

.T_IOWRITE_i (T_IOWRITE_i) , 

.  f ifo_din ( f if o_din [7:0] )  , 

.  fifo_rd ( fifo_rd [ 0]  )  , 

.  fifo_dout (fifo_dout [7:0] )  , 
.fifo_almost  full (fifo_almost 


xsoc_pcl04_mod0 (.clk(clk),  .rst(rst), 

. d ( d )  ,  . T_DAT A_i o ( T_DAT A_i o ) , 

. DATA_io_out (Data_io [7:0] ) , 

.T_ADDRESS_i ( T_ADDRESS_i ) , 

.T_IOREAD_i (T_IOREAD_i) , 

.T_IOCS_i (T_IOCS_i) ,  . T_INTRPT_o ( INTRPT_o [ 0 ] ) , 

. fifo_full ( fifo_full) ,  . dout (dout [15:0] ) , 

. f ifo_wren ( f ifo_wren [ 0 ] ) , 

. f ifo_rd_clk ( f ifo_rd_clk [ 0 ] ) , 

. fifo_empty (fifo_empty) , 
full)  , 

.ld_t(ld_t),  . ld_ce (ld_ce) ,  .addr (addr), 
.errorbus (errorbus) ) ; 


xsoc_pcl04_mod 
.  int_req ( int_req [ 1 ] )  , 

.  DATA_io_en (Data_io_en [ 1 ] ), 

.T_IOWRITE_i (T_IOWRITE_i) , 

.  f ifo_din ( f if o_din [15:8]  )  , 

.  fifo_rd ( fifo_rd [ 1 ] )  , 

.  fifo_dout (fifo_dout [7:0] )  , 
.fifo_almost  full (fifo_almost 


xsoc_pcl04_modl (.clk(clk),  .rst(rst), 

. d ( d )  ,  . T_DAT A_i o ( T_DAT A_i o ) , 

. DATA_io_out (Data_io [15:8] ) , 

.T_ADDRESS_i ( T_ADDRESS_i ) , 

.T_IOREAD_i (T_IOREAD_i) , 

.T_IOCS_i (T_IOCS_i) ,  . T_INTRPT_o ( INTRPT_o [ 1 ] ) , 

. fifo_full (fifo_full) ,  .dout (dout [31:16] ) , 

. fifo_wren ( fifo_wren [ 1 ] ) , 

. fifo_rd_clk ( fifo_rd_clk [ 1 ] ) , 

. fifo_empty (fifo_empty) , 
full)  , 
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.  ld_t (ld_t) ,  . ld_ce (ld_ce) ,  .addr(addr), 

.errorbus (errorbus) )  ; 


xsoc_pcl04_mod 
.  int_req ( int_req [ 2 ] )  , 

.  DATA_io_en (Data_io_en [ 2 ] ), 

.T_IOWRITE_i (T_IOWRITE_i) , 

.  f ifo_din ( f if o_din [23:16]), 

.  f ifo_rd ( f ifo_rd [ 2 ] )  , 

.  fifo_dout (fifo_dout [7:0] )  , 


xsoc_pcl04_mod2  (.clk(clk;),  .rst(rst), 

. d ( d )  ,  . T_DAT A_i o ( T_DAT A_i o ) , 

.  DATA_io_out (Data_io [23:16]), 

.T_ADDRESS_i ( T_ADDRESS_i ) , 

.T_IOREAD_i (T_IOREAD_i) , 

.T_IOCS_i (T_IOCS_i) ,  . T_INTRPT_o ( INTRPT_o [2] ) , 

. fifo_full ( fifo_full) ,  . dout (dout [47:32] ) , 

.  f ifo_wren ( f if o_wren [ 2 ] ) , 

.  f ifo_rd_clk;  ( f if o_rd_clk;  [ 2  ]  )  , 

.  fifo_empty (fifo_empty) , 


.  fifo_almost_full ( f if o_almost_f ull )  , 

.ld_t(ld_t),  . ld_ce (ld_ce) ,  .addr(addr), 
.errorbus (errorbus) ) ; 


pci 04queue_8xl 6  pcl04_queuel ( .din (fifo_din) , 

. add ( fifo_wren) , 

. remove ( f if o_rd)  , 

rd  clock  is  an  input  to  the  FPGA  voting  doesn't  help 


. elk (elk)  , 
.  rst (rst) , 


//  since  the 


. remove_clk (T_IOREAD_i) , 

. dout (fifo_dout [7:0]), 

. empty ( fifo_empty ) , 

.nearlyfull ( f if o_almost_f ull ) , 

. full  (fifo_full) ) ; 

//  comment  out  the  above  module  instantiation  and  uncomment  this  one 
//  to  switch  back  to  the  CoreGen  queue  for  testing 
//f if o_out_arm  fifo_out_arml  ( 

//  . din ( fifo_din [7 : 0 ] ) , 

//  . wr_en ( f if o_wren [ 0 ] )  , 

//  .wr^clk (clkY, 

//  . rd_en (fifo_rd[0] ) , 

//  . rd_clk (fifo_rd_clk [0] ) , 

//  . dout (f if o_dout [7 : 0 ] ) , 

//  . empty ( fifo_empty) , 

//  . full  (fifo_full) , 

//  .almost  full ( fifo_almost  full)); 


endmodule 


175 


THIS  PAGE  INTENTIONALLY  LEET  BLANK 


176 


APPENDIX  B:  VHDL  SOURCE  CODE 


This  appendix  contains  source  code  for  the  two  VHDL  modules  from  the  previous 
XI  configuration  modified  for  use  with  the  CFTP  XSOC  microcontroller. 


A,  SELECTMAP  CONFIG. VHD 


--  selectmap_conf ig . vhd 
--  Author:  Mindy  Surratt,  2005 

--  Research  Associate,  Naval  Postgraduate  School,  Monterey,  CA 

--  Code  to  perform  a  selectmap  full  configuration  on  the  VI  experiment  FPGA 


library  IEEE; 

use  IEEE . std_logic_ll 64 . all ; 
use  IEEE . numeric_std. all ; 
use  IEEE . std_logic_un signed . all ; 
use  IEEE . std_logic_arith . all ; 

entity  selectmap_conf ig  is 

port  ( 

T_CLOCK_i  :  in  std_logic; 

RESET_i  :  in  std_logic; 

TIMESTAMP_i  :  in  std_logic_vector ( 63  downto  0); 

T_SELECTMAP_INIT_o  :  out  std_logic; 

T_SELECTMAP_WRITE_o  :  out  std_logic; 

T_SELECTMAP_CS_o  :  out  std_logic; 

T_SELECTMAP_DATA_o  :  out  std_logic_vector ( 7  downto  0 ) ; 

SM_CONFIG_RQST_i  :  in  std_logic; 

SM_CONFIG_STATUS_o  :  out  std_logic; 

SM_FLASH_BASE_i  :  in  std_logic_vector (20  downto  0) ; 

T_FLASH_DATA_i  :  in  std_logic_vector ( 1 5  downto  0 ) ; 

T_FLASH_ADDRESS_o  :  out  std_logic_vector (21  downto  0) 

PC104_WR_RDY_i  :  in  std_logic; 

PC104_WR_EN_o  :  out  std_logic; 

DATA_o  :  out  std_logic_vector ( 7  downto  0) 

)  ; 

end  selectmap_conf ig; 

architecture  rtl  of  selectmap_conf ig  is 

CONSTANT  BIN_LENGTH  :  integer  :=  450996;  — SIMULATION  20; 

— CONSTANT  CONFIG_DELAY  :  integer  :=  40;  — SIMULATION  10; 

— Added  20  clocks  to  config  delay  to  offset  deletion  of  PC/104  data  output 
CONSTANT  CONFIG_DELAY  :  integer  :=  60;  — SIMULATION  10; 
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CONSTANT  ABORT_SETUP_LENGTH 
CONSTANT  ABORT_LENGTH 
CONSTANT  ABORT_RELEASE_LENGTH 
CONSTANT  CONFIG  LENGTH 


integer  :=  5; 
integer  :=  5; 
integer  :=  5; 

integer  :=  CONFIG_DELAY  +  BIN_LENGTH  + 
ABORT_SETUP_LENGTH  + 
ABORT_LENGTH  + 

ABORT  RELEASE  LENGTH; 


signal  count_config 
signal  byte_count 
--  signal  wr  cnt 
CONSTANT  SC_WORD_LENGTH 
--type  sc_vector  is 


:  integer  range  0  to  CONFIG_LENGTH  ; 

:  integer  range  0  to  100; 

:  integer  range  0  to  100; 

:  integer  :=  10; 

array (SC_WORD_LENGTH-l  downto  0)  of  std_logic_vector ( 7 


downto  0 ) ; 

--signal  sc_word  :  sc_vector; 

signal  s_flash_address_o  :  std_logic_vector (20  downto  0) ; 


begin 


--  only  one  flash  device  on  CFTP-1,  so  only  21  addr  lines  (addr(21)  =  '0') 
T_FLASH_ADDRESS_o (21)  <=  'O'; 

T  FLASH_ADDRESS_o (20  downto  0)  <=  s_flash  address  o; 


--  Selectmap  Configuration  Process 
process (T_CLOCK_i,  RESET_i) 
begin 

if  (RESET_i  =  '1')  then 

s_flash_address_o  <=  "000000000000000000000"; 

SM_CONFIG_STATUS_o  <=  ' 0 ' ; 

T_SELECTMAP_DATA_o  <=  x"00"; 

T_SELECTMAP_INIT_o  <=  'O'; 
T_SELECTMAP_WRITE_o  <=  ' 1 ' ; 
T_SELECTMAP_CS_o  <=  ' 1 ' ; 

PC104  WR  EN  o  <=  ' 0 ' ; 


wr_cnt  <=  0; 

count_config  <=  CONFIG_LENGTH; 

elsif (T_CLOCK_i ' event  and  T_CLOCK_i  =  '1')  then 

T_SELECTMAP_INIT_o  <=  '1'; 

T_SELECTMAP_CS_o  <=  ' 1 ' ; 

T_SELECTMAP_WRITE_o  <=  ' 1 ' ; 

PC104_WR_EN_o  <=  'O'; 

if  (  count_config  =  0  )  then 

if  (wr_cnt  =  0)  then 
sc_word(0)  <=  x"53"; 
sc_word(l)  <=  x"43"; 

sc_word(2)  <=  TIMESTAMP_i ( 63  downto  56); 
sc_word(3)  <=  TIMESTAMP_i ( 55  downto  48); 
sc_word(4)  <=  TIMESTAMP_i ( 47  downto  40); 
sc_word(5)  <=  TIMESTAMP_i ( 39  downto  32); 
sc_word(6)  <=  TIMESTAMP_i ( 31  downto  24); 
sc_word(7)  <=  TIMESTAMP_i (23  downto  16); 
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sc_word(8)  <=  TIMESTAMP_i (15  downto  8 )  ; 
sc_word(9)  <=  TIMESTAMP_i (7  downto  0); 
wr_cnt  <=  wr_cnt  +  1; 

elsif  (wr_cnt  <  SC_WORD_LENGTH+l  and  PC104_WR_RDY_i  =  '1')  then 
DATA_o  <=  sc_word (wr_cnt-l ) ; 

PC104_WR_EN_o  <=  '1'; 
wr  cnt  <=  wr_cnt  +  1; 
elsif  Twr_cnt  =  SC_WORD_LENGTH+l )  then 
count_config  <=  1  ; 
wr_cnt  <=  0; 
end  if; 

--  give  it  some  time 

elsif  ( count_conf ig  <  C0NF1G_DELAY  )  then 
count_config  <=  count_config  +  1; 

--  assert  write  and  CS 

elsif  (count_config  <  C0NF1G_DELAY  +  ABORT_SETUP_LENGTH)  then 
count_config  <=  count_config  +  1; 

T_SELECTMAP_CS_o  <=  ' 0 ' ; 

T_SELECTMAP_WRlTE_o  <=  'O'; 

--  deassert  write  while  CS  is  asserted  (pulls  an  abort) 

elsif  (count_config  <  C0NF1G_DELAY  +  ABORT_SETUP_LENGTH  +  ABORT_LENGTH) 

then 

count_config  <=  count_config  +  1; 

T_SELECTMAP_CS_o  <=  ' 0 ' ; 

T_SELECTMAP_WRlTE_o  <=  ' 1 ' ; 

--  Just  deassert  WRITE  and  CS  to  release  the  abort  (for  Virtex  1) 

--  (Default  values  of  WRITE  and  CS  are  see  above) 

elsif  (count_config  <  C0NF1G_DELAY  +  ABORT_SETUP_LENGTH  + 

ABORT_LENGTH  +  ABORT_RELEASE_LENGTH )  then 
count_config  <=  count_config  +  1; 

--  read  data  from  flash  and  write  to  X2s  selectmap  interface 
elsif  ( count_conf ig  <  C0NF1G_LENGTH)  then 
byte_count  <=  byte_count  +  1; 

--T_SELECTMAP_DATA_ioO  is  the  MSB  (except  1  swapped  values  in  UCF 
--so  in  this  instance  D7  is  MSB...) 

--  disabled  bit  flipping  in  promgen  (default  is  to  flip  bits  in 
--  each  byte) ,  so  T_s_o<=t_flash_data  instead  of 
--  having  to  reverse  the  bits  (7=0,  6=1,  etc) 


--  takes  some  time  to  read  from  the  flash  (possibly  less  than 
--  I'm  allowing  for... 
if  (byte_count  =  6)  then 


^  ^  -k  -k  -k 

--***  byte_count  <=  6; 

^  ^  zk  -k  zk 


^  ^  'k  'k  'k 

_ k  kk 

^  ^  k  k  k 
^  ^  k  k  k 

_ k  k  k 

^  ^  k  k  k 
^  ^  k  k  k 

_ ■*■*■*■ 

^  ^  k  k  k 


if  (wr_cnt  =  0)  then 

sc_word(0)  <=  T_FLASH_DATA_i (7  downto  0); 
wr_cnt  <=  wr_cnt  +  1 ; 

elsif  (wr_cnt  <  2  and  PC104_WR_RDY_i  =  '1')  then 
DATA_o  <=  sc_word (wr_cnt-l ) ; 

PC104_WR_EN_o  <=  ' 1  '  ; 
wr_cnt  <=  wr_cnt  +  1 ; 
elsif  (wr_cnt  =  2)  then 
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T_SELECTMAP_CS_o  <=  ' 0 ' ; 

T_SELECTMAP_WRITE_o  <=  'O'; 

T_SELECTMAP_DATA_o  <=  T_FLASH_DATA_i ( 7  downto  0); 
count_config  <=  count_config  +  1; 
byte_count  <=  0; 

s  flash  address  o  <=  s  flash  address  o  +  1; 


_ -k  -k  -k 

--***  wr_cnt  <=  0; 

--***  end  if; 

_ *  *  * 


end  if; 

--  sit  here  until  we  get  a  config  request  from  the  top  level 
elsif  ( count_conf ig  =  CONFIG_LENGTH  )  then 
count_config  <=  CONFIG_LENGTH; 

SM_CONFIG_STATUS_o  <=  ' 0 ' ; 

--reset  flash  address 

s_flash_address_o  <=  "000000000000000000000"; 

08202008  added  selectable  base  address  ded 

s_f lash_address_o  <=  SM_FLASH_BASE_i (20  downto  0) ; 
if  (SM_CONFIG_RQST_i  =  '1')  then^  ^  ^ 

count_config  <=  0; 

SM_CONFIG_STATUS_o  <=  ' 1 '  ; 
end  if; 

end  if; 


end  if; 
end  process; 
end  rtl; 


B,  SELECTMAP  READBACK,VHD 


--  selectmap_readback . vhd 
--  Author:  Mindy  Surratt,  2005 

--  Research  Associate,  Naval  Postgraduate  School,  Monterey,  CA 
--  Code  to  perform  a  selectmap  readback  on  the  experiment  FPGA, 

--  compare  the  readback  data  with  the  configuration  file  and  mask  file  stored  -- 
--  in  the  Flash  memory,  and  output  any  configuration  errors  to  the  PC/104 


library  IEEE; 

use  IEEE . std_logic_ll 64 . all ; 
use  IEEE . numeric_std. all ; 
use  IEEE . std_logic_un signed . all ; 
use  IEEE . std_logic_arith . all ; 

entity  selectmap_readback  is 
port  ( 

T_CLOCK_i  :  in  std_logic; 

CLOCK_i  :  in  std_logic; 
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CLOCK_NOBUFG_i 
RESET  i 


:  in  std_logic; 
in  std_logic; 


TIMESTAMP  i 


in  std_logic_vector ( 63  downto  0); 


T_CCLK_o  :  out  std_logic; 

T_SELECTMAP_ FLASH  BASE  i  : 
T_SELECTMAP_INIT_o 
T_S  ELECTMAP_WRI TE_o 
T_S  ELECTMAP_C  S_0 
T_SELECTMAP_DATA_o 
T  SELECTMAP  DATA  i 


in  std_logic_vector (20  downto  0) 


out  std_logic; 
out  std_logic; 
out  std_logic; 

out  std_logic_vector ( 7  downto  0); 
in  std  logic  vector (7  downto  0) ; 


SM_RB_RQST_i 

SM_RB_STATUS_0 

SM  RB  ACK  i 


in  std_logic; 
out  std_logic; 

:  in  std_logic; 


T_FLASH_DATA_i 
T  FLASH  ADDRESS  O 


in  std_logic_vector ( 1 5  downto  0); 
out  std_logic_vector (21  downto  0)  , 


PC104_WR_RDY_i 
PC104_WR_EN_o 
DATA_o 

SM_RB_READ_DATA_o 
SM_RB_ERROR_LOC_H_o 
SM_RB_ERROR_LOC_L_o 
SM_RB_ERROR_WORD_o 
SM_RB_DATA_RDY_o 
)  ; 

end  selectinap_readback;; 


in  std_logic; 
out  std_logic; 

out  std_logic_vector ( 7  downto  0) 


out  std_logic_vector 
out  std_logic_vector 
out  std_logic_vector 
out  std_logic_vector 
:  out  std_logic 


(7  downto  0)  ; 
(7  downto  0); 
(15  downto  0)  , 
(15  downto  0)  , 


architecture  rtl  of  selectinap_readback  is 


Constants 


CONSTANT  READBACK_COMMAND_LENGTH 
—  CLB_LENGTH  refers  to  CLBs,  lOBs, 
CONSTANT  CLB_LENGTH 
CONSTANT  READBACK_DELAY 
CONSTANT  READBACK_INIT1_DELAY 
CONSTANT  READBACK_INIT2_DELAY 
--  Number  of  clocks  needed  to  set  r 


:  integer  :=  36; 

and  BRAMIs.  We  do  not  read  back  BRAMs 
:  integer  :=  435240;  — SIMULATION  130; 
:  integer  :=  40;  — SIMULATION  10; 

:  integer  :=  1; 

:  integer  :=  1;  —  DO  NOT  CHANGE  THIS! 
readback  (before  we  actually  start 


--  getting  data) 

CONSTANT  READBACK  OFFSET 


CONSTANT  READBACK_LENGTH 

CONSTANT  sleep_st 
(2  downto  0)  :=  "000"; 

CONSTANT  wr_hdr_st 
(2  downto  0)  :=  "001"; 

CONSTANT  read_flash_st 
(2  downto  0)  :=  "010"; 

CONSTANT  read_sm_st 
(2  downto  0)  :=  "011"; 

CONSTANT  wait_st 

"100"; 


integer  :=  READBACK_COMMAND_LENGTH  + 
READBACK_DELAY  + 
READBACK_INIT1_DELAY  + 
READBACK_INIT2_DELAY; 
integer  :=  CLB_LENGTH  + 

READBACK_OFFSET ; 

:  std_logic_vector 

:  std_logic_vector 

:  std_logic_vector 

:  std_logic_vector 

:  std_logic_vector  (2  downto  0)  := 


CONSTANT  compare_st 
(2  downto  0)  :=  "101"; 


std_logic_vector 
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(2 


CONSTANT  write_pcl04_st  :  std_logic_vector 

downto  0)  :=  "110"; 

signal  s_clock_i  :  std_logic  :=  ' 0 ' ; 

signal  report_error_state  :  std_logic_vector  (2  downto  0); 


Flash  compare/report  signals 
type 
type 


my_state  is  ( sleep_st, read_f lash_st, wr_hdr_st, 

read_sm_st,  wait_st,  compare_st,  write_pcl04_st) ; 
error_vector  is  array(15  downto  0)  of  std_logic_vector ( 7  downto  0) ; 


signal  report_error  state 
signal  error  word 

signal  f lash_data_reg 
signal  s_flash_address_o 
signal  error  count 


:  my_state; 

:  error  vector; 

std_logic_vector ( 15  downto  0)  ; 
std_logic_vector (20  downto  0) ; 
integer  range  0  to  1024; 


signal  error  location 

:  std  logic 

vector 

(23 

downto 

0)  ; 

signal  error  location 

readback 

:  std  logic 

vector 

(23 

downto 

0)  ; 

signal  wr  cnt 

:  integer 

range  0 

to 

32; 

CONSTANT  SM  WORD  LENGTH 

:  integer 

:=  10; 

type  sm  vector  is 

array (SM 

WORD  LENGTH- 

1  downto 

0) 

of  std 

logic  vector (7 

downto  0) ; 

signal  sin_word 


sm  vector; 


--  Selectmap  Readback  signals 


type  readback_mem_type  is  array (READBACK_COMMAND_LENGTH-l  downto  0) 

of  std_logic_vector  (7  downto  0) ; 


signal 

signal 

signal 

signal 

signal 

signal 

signal 

signal 


readback_c ommand 

count_readback 

strt_rb 

s_selectmap_data_d 
s_  s  e 1 e  c  tmap_da  t  a_i 
reading_sm_data 
reading_sm_data_d 
readback  location 


readback_mein_type  ; 
integer  range  0  to 
std_logic; 
std_logic_vector ( 7 
std_logic_vector ( 7 
std_logic; 
std_logic; 
integer  range  0  to 


1024000; 

downto  0 ) ; 
downto  0 ) ; 


1024000; 


signal  selectmap_read_data 


std_logic_vector ( 7  downto  0); 


begin 


--  Clocking  CCLK  only  works  if  we  use  a  signal  that  is  not  on  the 

--  clock  network 

process  (T_CLOCK_i)  begin 

if  (T_CLOCK_i 'event  and  T_CLOCK_i  =  '1')  then 
s_clock_i  <=  not  s_clock_i; 
end  if; 
end  process; 


--  Command  sequence  that  initializes  a  selectmap  readback 
readback_command ( 0 ) (7  downto  0)  <=  x"FF";  --MSB  dummy  word 
readback_command ( 1 ) (7  downto  0)  <=  x"FF"; 
readback_command ( 2 ) (7  downto  0)  <=  x"FF"; 
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readback_command ( 3 ) (7  downto  0)  <= 
readback_coinmand  ( 4 )  (7  downto  0)  <= 
readback_command ( 5 ) (7  downto  0)  <= 
readback_command ( 6 ) (7  downto  0)  <= 
readback_coinmand  ( 7 )  (7  downto  0)  <= 
readback_command ( 8 ) (7  downto  0)  <= 
readback_command ( 9) (7  downto  0)  <= 
readback_coinmand  ( 10 )  (7  downto  0) 
readback_command ( 11 ) (7  downto  0) 
readback_command ( 12 ) (7  downto  0) 
readback_command ( 13 ) (7  downto  0) 
readback_command ( 14 ) (7  downto  0) 
readback_command ( 15 ) (7  downto  0) 
readback_command ( 1 6 ) (7  downto  0) 
readback_command ( 17 ) (7  downto  0) 
readback_command ( 18 ) (7  downto  0) 
readback_command ( 1 9 ) (7  downto  0) 
readback_command (20 ) (7  downto  0)  <= 
readback_command (21 ) (7  downto  0)  <= 
readback_command ( 22 ) (7  downto  0)  <= 
readback_coinmand  ( 23 )  (7  downto  0)  <= 
readback_command (24 ) (7  downto  0)  <= 
readback_command ( 25 ) (7  downto  0)  <= 
readback_coinmand  ( 2  6 )  (7  downto  0)  <= 
readback_command (27 ) (7  downto  0)  <= 
readback_command (28 ) (7  downto  0)  <= 
readback_command ( 2 9 ) (7  downto  0)  <= 
readback_command ( 30 ) (7  downto  0)  <= 
readback_command ( 31 ) (7  downto  0)  <= 
readback_command ( 32 ) (7  downto  0)  <= 
readback_coinmand  ( 33 )  (7  downto  0)  <= 
readback_coinmand  ( 34  )  (7  downto  0)  <= 
readback  command (35) (7  downto  0)  <= 


x"FF"; 

x"AA";  --MSB  synchronization  word 

x"99"; 

x"55"; 

x"66"; 

x"30";  --MSB  write  1  word  to  FAR  reg 

x"00"; 

x"20"; 

x"01"; 

x"00";  --MSB  FAR  address 

x"00"; 

x"00"; 

x"00"; 

x"30";  --MSB  write  1  word  to  CMD  reg 

x"00"; 

x"80"; 

x"01"; 

x"00";  — MSB  RCFG  command 

x"00"; 

x"00"; 

x"04"; 

x"28";  --MSB  type  2  header 

x"00"; 

x"60"; 

x"00"; 

x"48";  --type  2  read  from  active  reg 
x"01";  -- (FDRO)  0xlA90A  32  bit  words 
x"A9";  —  (READBACK_LENGTH/4) 

x"0A"; 

x"00";  --MSB  pad  word 

x"00"; 

x"00"; 

x"00"; 


--  grabs  selectmap  data  on  the  next  read_sm_st, 

--  the  first  byte  read  back  will  be  junk  (no  data  yet) 

T_CCLK_o  <=  ' 1 '  when  reading_sm_data  =  ' 1 ' 

and  report_error_state  !=  read_sm_st 
else  s_clock_i; 
s_selectmap_data_i  <=  T_SELECTMAP_DATA_i ; 

--  only  one  flash  device  on  CFTP-1,  so  only  21  addr  lines  (addr(21)  =  '0') 
T_FLASH_ADDRESS_o (21)  <=  ' 0 '  ; 

T_FLASH_ADDRESS_o (20  downto  0)  <=  s_f lash_address_o ; 

readback_location  <=  0  when  count_readback  <  READBACK_OFFSET 

else  (count  readback  -  READBACK  OFFSET) ; 


process (CLOCK_i , RESET_i ) 
begin 

if  (RESET_i  =  '1')  then 

report_error_state  <=  sleep_st; 
error_count  <=  0; 

--S  wr_cnt  <=  0; 

PC104_WR_EN_o  <=  'O'; 

DATA_o  <=  x"31"; 

elsif  (CLOCK_i ' event  and  CLOCK_i  =  '1')  then 
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PC104_WR_EN_o  <=  'O'; 

report_error_state  <=  report_error  state; 
case  report  error_state  is 


when  sleep_st  => 


--  set  flash  address  to  just  after  the  selectmap 
--  configuration  commands  in  the  bin  file 
s_flash_address_o  <=  "000000000000001001000"; 

s  flash  address  o 


T_SELECTMAP_FLASH_BASE_i ; 

--  wait  until  we  start  actually  reading  SM  data 
--  then  start  the  readback  reports 
if  (reading_sm_data  =  '1')  then 

report_error_state  <=  wr  hdr_st; 
end  if; 


when  wr_hdr_st  => 

if  (wr_cnt  =  0)  then 

sm_word(0)  <=  x"53"; 
sm_word(l)  <=  x"4D"; 

sm_word(2)  <=  TIMESTAMP_i ( 63  downto  56); 

sm_word(3)  <=  TIMESTAMP_i (55  downto  48); 

sm_word(4)  <=  TIMESTAMP_i (47  downto  40); 

sm_word(5)  <=  TIMESTAMP_i (39  downto  32); 
sm_word(6)  <=  TIMESTAMP_i (31  downto  24); 

sm_word(7)  <=  TIMESTAMP_i (23  downto  16); 

sm_word(8)  <=  TIMESTAMP_i (15  downto  8); 

sm_word(9)  <=  TIMESTAMP_i (7  downto  0); 

wr  cnt  <=  wr  cnt  +  1; 

elsif  Twr_cnt  <  SM_WORD_LENGTH+l  and  PC104_WR_RDY_i  =  '!') 

then 

DATA_o  <=  sm_word (wr_cnt-l ) ; 

PC104_WR_EN_o  <=  '!'; 
wr_cnt  <=  wr_cnt  +  1; 
report_error_state  <=  wr  hdr_st; 
elsif  (wr_cnt  =  SM_WORD_LENGTH+l )  then 
wr_cnt  <=  0; 

report_error_state  <=  read_f lash_st; 
end  if; 


when  read_f lash_st  => 

report  error_state  <=  read  sm_st; 

--  Go  idle  if  we  are  done  reading  back 
if  (reading_sm_data  =  '0')  then 

report_error_state  <=  sleep_st; 
end  if; 


when  read_sm_st  => 

--  latch  the  selectmap  data  from  the  last  read, 

--  and  trigger  CCLK  to  get  the  next  byte  (see  T_CCLK_o 
--  assignment  above) 

selectmap_read_data  <=  s_selectmap_data_i ; 
report  error_state  <=  wait_st; 

when  wait  st  => 
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--  Skip  first  junk  byte  (see  CCLK  above),  1  dummy  word, 
--  and  one  pad  frame  (120  bytes) 
if  (readback_location  <  125)  then 

report_error_state  <=  read_sm_st; 

else 

report_error  state  <=  compare  st; 
end  if; 


when  compare_st  => 

--  latch  flash  data  for  possible  report  to  PC104 
f lash_data_reg  <=  T_FLASH_DATA_i; 

--  increment  the  flash  address  for  the  next  read 
s_f lash_address_o  <=  s_flash_address_o  +  1; 

--  Compare  read  back  selectmap  data,  configuration  data 
--  stored  in  the  flash,  and  mask  data  stored  in  the  flash. 
--  If  there  is  a  mismatch,  print  a  report  to  PC/104. 

--  Otherwise,  read  the  next  byte 

if  (  (  (T_FLASH_DATA_i ( 7  downto  0)  xor  selectmap_read_data) 
and  not  T_FLASH_DATA_i ( 15  downto  8)  )  /=  x"00"  )  then 
report_error_state  <=  write_pcl04_st; 

else 

report_error_state  <=  read_f lash_st ; 
end  if; 


when  write_pcl04_st  => 


--  08/01/2008 
from  CPU 


<=  read  flash  st; 


'O'  ; 


ded  comment  out  direct  access  to  PC/104  bus  and  add  ack 

-  print  out  SM  report 

-  error_word()  defined  below 

SM_RB_DATA_RDY_o  <=  ' 1 ' ; 
if  (wr_cnt  <  7  and  PC104_WR_RDY_i  =  '!'  )  then 
DATA_o  <=  error_word (wr_cnt) ; 

PC104_WR_EN_o  <=  ' 1 '  ; 
wr_cnt  <=  wr_cnt  +  1; 

-  read  next  byte  from  selectmap  when  done 
elsif  (wr_cnt  =  7)  then 

if  (SM_RB_ACK_i  =  '1')  then 

report_error_state 

SM  RB  DATA  RDY  o  <= 


wr_cnt  <=  0; 
end  if; 


end  if; 


when  others  =>  report_error_state  <=  sleep_st; 
end  case; 
end  if; 


end  process; 

error_location  <=  "000"  &  ( s_flash_address_o  -  1)  ; 

error_location_readback  <= 

std_logic_vector (to_unsigned (readback_location,  24 ) ) ; 

--  SMRB  error  report,  error  location  is  byte  location  within 
--  bin  file 

error_word ( 0 )  <=  x"00"; 
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error_word ( 1 )  <=  selectmap_read_data  ; 
error_word ( 2 )  <=  error_location (23  downto  16); 
error_word ( 3 )  <=  error_location ( 1 5  downto  8); 
error_word ( 4 )  <=  error_location ( 7  downto  0); 
error_word ( 5 )  <=  f lash_data_reg ( 7  downto  0); 
error_word ( 6 )  <=  f lash_data_reg ( 1 5  downto  8); 

SM_RB_READ_DATA_o  <=  selectmap_read_data  ; 

SM_RB_ERROR_LOC_H_o  <=  error_location (23  downto  16); 

SM_RB_ERROR_LOC_L_o  <=  error_location ( 1 5  downto  0); 

SM_RB_ERROR_WORD_o  <=  f lash_data_reg ( 15  downto  0) ; 


--  Process  to  perform  Selectmap  Readback 

process (CLOCK_i , RESET_i ) 

begin 

if  (RESET_i  =  '1')  then 

T_SELECTMAP_INIT_o  <=  '1'; 

T_SELECTMAP_WRITE_o  <=  ' 1 ' ; 

T_SELECTMAP_CS_o  <=  ' 1 ' ; 

count_readback  <=  READBACK_LENGTH; 

SM_RB_STATUS_o  <=  ' 0 ' ; 
reading_sm_data  <=  ' 0 ' ; 
reading_sm_data_d  <=  ' 0 ' ; 

s_selectmap_data_d  <=  x"FF"; 

strt_rb  <=  ' 0 ' ; 

T_SELECTMAP_DATA_o  <=  x"FF"; 

elsif (CLOCK_i ' event  and  CLOCK_i  =  '1')  then 

T_SELECTMAP_INIT_o  <=  '1'; 

T_SELECTMAP_CS_o  <=  ' 1 ' ; 

T_SELECTMAP_WRITE_o  <=  ' 1 ' ; 

reading_sm_data  <=  '  0  '  ; 
reading_sm_data_d  <=  reading_sm_data; 

--  Give  it  some  time 

if  (count_readback  <  READBACK_DELAY)  then 
count_readback  <=  count_readback  +  1; 

--  Write  the  readback  commands  to  X2s  selectmap  interface 
elsif  (count_readback  <  READBACK_COMMAND_LENGTH  + 

READBACK_DELAY  )  then 
T_SELECTMAP_CS_o  <=  ' 0 ' ; 

T_SELECTMAP_WRITE_o  <=  'O'; 

T_SELECTMAP_DATA_o  <= 

readback_command ( count_readback  -  READBACK_DELAY  ); 
count_readback  <=  count_readback  +  1; 

--INITialize  readback  (deassert  CS  and  WRITE) 

elsif  (count_readback  <  READBACK_COMMAND_LENGTH  +  READBACK_DELAY  + 

READBACK_INIT1_DELAY  )  then 
T_SELECTMAP_CS_o  <=  ' 1 ' ; 

T_SELECTMAP_WRITE_o  <=  ' 1 ' ; 
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count_readback  <=  count_readback  +  1; 

--  INITialize  readback  (assert  CS) 
elsif  ( count_readback  <  READBACK_OFFSET  )  then 
T_SELECTMAP_CS_o  <=  ' 0 ' ; 

T_SELECTMAP_WRITE_o  <=  ' 1 ' ; 
count_readback  <=  count_readback  +  1; 

--  read  back  the  configuration  data  from  X2 
elsif  ( (count_readback  <  (READBACK_LENGTH) )  )  then 

T_SELECTMAP_CS_o  <=  ' 0 ' ; 

T_SELECTMAP_WRITE_o  <=  ' 1 ' ; 
reading_sm_data  <=  ' 1 ' ; 

--  data_d  will  be  FF  until  second  clock  in  this  statement 
--  this  prevents  SM  readback  from  hanging  on  the  next  statement 
--  if  there  happen  to  be  no  FFs  at  the  beginning 
s_selectmap_data_d  <=  s_selectmap_data_i; 

--  Skip  all  dummy  FF  data  coming  out  of  the  selectmap  interface 
--  at  the  beginning 

if  ( s_selectmap_data_i  /=  x"FF"  and 
s_selectmap_data_d  =  x"FF")  then 
strt_rb  <=  ' 1 ' ; 
end  if; 

--  Don't  increment  the  readback  counter  unless  we've  cleared  out 
--  all  the  dummy  FF ' s  (strt_rb  =  '!')  and  we  we  are  latching 
--  the  selectmap  data  in  the  read_sm_st  of  the  state  machine 
--  CCLK  is  clocked  off  of  read_sm_st  as  well,  so  every  time 
--  we  are  in  read_sm_st,  another  byte  of  selectmap  data  is 
--  clocked  out,  and  we  grab  it  the  next  time  we're  in  read_sm_st 
--  we  only  want  to  increment  the  counter  when  we  actually 
--  grab  a  selectmap  readback  byte 

if  (report_error_state  =  read_sm_st  and  strt_rb  =  '!'  )  then 
count_readback  <=  count_readback  +  1; 
end  if; 

--  sit  here  until  we  get  a  readback  request  from  top  level 
elsif  ( count_readback  =  READBACK_LENGTH  )  then 
count_readback  <=  READBACK_LENGTH; 

SM_RB_STATUS_o  <=  ' 0 ' ; 
strt_rb  <=  ' 0 ' ; 

--  Make  sure  this  starts  out  as  FF  so  we  will  start  the  readback 
--  even  if  there  are  no  dummy  FF's  at  the  beginning  of  the 
--  readback 

s_selectmap_data_d  <=  x"FF"; 

if  (SM_RB_RQST_i  =  '!')  then 
count_readback  <=  0; 

SM_RB_STATUS_o  <=  ' 1 ' ; 
end  if; 

end  if; 
end  if; 
end  process; 

end  rtl; 
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APPENDIX  C:  C  SOURCE  CODE 


This  appendix  contains  the  two  C  source  files  used  in  the  CFTP  microcontroller. 
The  first,  HEXTOV.C,  is  the  source  for  the  .hex  to  Verilog  format  conversion  tool.  The 
second,  libxrl6.c,  is  the  runtime  library  for  XSOC. 


A,  HEXTOV.C 


#include 

#define 

#define 

#define 

#define 


<stdio . h> 
NUMBYTES  8 
NUMWORDS  4 
NUMOUTPUT  22 
HEXPERLINE  64 


unsigned  char  inputbytes [NUMBYTES ] ; 

FILE  *outputf ile; 

unsigned  char  outputhex [NUMOUTPUT] [HEXPERLINE] ; 
int  linepos; 
int  linecnt; 


void  myputc (unsigned  char  mychar,  int  mybin) ; 
void  writelines  0 ; 
void  clearlines ( ) ; 

unsigned  char  ascii2bin (int  charl,  int  char2); 
unsigned  char  bin2ascii (unsigned  char  myint) ; 

main(int  argc,  char  *argv[]) 

{ 


FILE  *inputfilep; 

char  myf ilename [ 1 5 ]  ; 

int  i , j  ; 

int  tbyte; 

int  fileend; 

int  charl,  char2; 

char  inputfilename [255] ; 

int  tlen; 


strcpy (myfilename,  argv[l]); 
strcat (myfilename,  ".hex"); 

if  ( (inputfilep  =  f open  (myf ilename, "r" ) )  ==  NULL) 

{ 

fprintf (stderr,  "Can't  open  %s\n" , myf ilename) ; 
exit ( 1 ) ; 

} 


strcpy (myfilename,  argv[l]); 
strcat (myfilename,  ".v"); 

if  ( ( output file=f open (myfilename, "w" ) ) ==NULL) 
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{ 

fprintf (stderr,  "Can't  open  %s\n",  myfilename) ; 

} 


f ileend=0 ; 
linepos=63; 
linecnt=0 ; 
clearlines ( ) ; 
while (fileend==0) 
{ 


tbyte=getc (inputfilep) ; 

/*  start  a  new  line  */ 
if  (tbyte !=EOF) 

{ 

/*  read  a  byte,  read  9  more*/ 
for  (j=0; j<9; j++) 

{ 

getc (inputfilep) ; 

} 

charl=getc (inputfilep)  ; 

char2=getc (inputfilep) ; 

inpu tbytes [I]=ascii2bin(charl,char2) ; 

getc (inputfilep) ; 

charl=getc (inputfilep) ; 

char2=getc (inputfilep) ; 

inputbytes [ 0 ] =ascii2bin (charl , char 2 )  ; 

getc (inputfilep) ; 

charl=getc (inputfilep) ; 

char2=getc (inputfilep)  ; 

inputbytes [ 3 ] =ascii2bin (charl , char 2 )  ; 

getc (inputfilep)  ; 

charl=getc (inputfilep)  ; 

char2=getc (inputfilep) ; 

i npu tbyte s[2]=a scii2bin(charl, char2); 

getc (inputfilep) ; 

charl=getc (inputfilep) ; 

char2=getc (inputfilep) ; 

inputbytes [ 5 ] =ascii2bin (charl , char 2 ) ; 

getc (inputfilep) ; 

charl=getc (inputfilep) ; 

char2=getc (inputfilep) ; 

i npu tbyte s[4]=a scii2bin(charl, char2); 

getc (inputfilep)  ; 

charl=getc (inputfilep) ; 

char2=getc (inputfilep)  ; 

inputbytes [7]=ascii2bin(charl,char2) ; 

getc (inputfilep) ; 

charl=getc (inputfilep)  ; 

char2=getc (inputfilep) ; 

inputbytes [ 6 ] =ascii2bin (charl , char 2 ) ; 

getc (inputfilep) ; 

/* 

if  (  (linecnt==0)  &&  (linepos==63) ) 

{ 

printf("data  is  %x  %x  %x  %x  %x  %x  %x  %x\n", 

inputbytes [0] ,  inputbytes [ 1 ] ,  inputbytes [2 ] , 
inputbytes [4 ] ,  inputbytes [ 5 ] ,  inputbytes [ 6 ] , 


*/ 


inputbytes [3] , 
inputbytes [ 7 ] ) 
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split  ( ) ; 


charl=getc (inputfilep) ; 

char2=getc (inputfilep)  ; 

i npu tbyte s[l]=a scii2bin(charl, char2); 

getc (inputfilep)  ; 

charl=getc (inputfilep) ; 

char2=getc (inputfilep) ; 

inputbytes [ 0 ] =ascii2bin (charl ,  char 2 )  ; 

getc  (inputfilep) ; 

charl=getc (inputfilep)  ; 

char2=getc (inputfilep)  ; 

inputbytes [ 3 ] =ascii2bin (charl ,  char 2 )  ; 

getc (inputfilep) ; 

charl=getc (inputfilep)  ; 

char2=getc (inputfilep) ; 

i npu tbyte s[2]=a scii2bin(charl, char2); 

getc  (inputfilep) ; 

charl=getc (inputfilep) ; 

char2=getc (inputfilep)  ; 

inputbytes [ 5 ] =ascii2bin (charl , char 2 )  ; 

getc  (inputfilep) ; 

charl=getc (inputfilep)  ; 

char2=getc (inputfilep) ; 

inputbytes[4]=ascii2bin(charl,char2); 

getc (inputfilep) ; 

charl=getc (inputfilep) ; 

char2=getc (inputfilep)  ; 

i npu tbyte s[7]=a scii2bin(charl, char2); 

getc (inputfilep)  ; 

charl=getc (inputfilep)  ; 

char2=getc (inputfilep)  ; 

inputbytes [ 6 ] =ascii2bin (charl , char 2 ) ; 

getc  (inputfilep) ; 

/*getc (inputfilep)  ;  */ 

/*  if  (  (linecnt==0)  &&  (linepos==62 ) ) 

{ 

printf("data  is  %x  %x  %x  %x  %x  %x  %x  %x\n", 

inputbytes [0] ,  inputbytes [ 1 ] ,  inputbytes [2 ] , 
inputbytes [4 ] ,  inputbytes [ 5 ] ,  inputbytes [ 6 ] , 


*/ 

split  ( ) ; 

/*  for (i=l;i<NUMBYTES;i++) 

{ 

inputbytes [i] =getc (inputfilep) ; 
if  (inputbytes [i] ==EOF) 

{ 

inputbytes [i] =0; 
f ileend=l ; 

} 

} 

*/ 

} 

else 

{ 
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inputbytes  [3]  , 
inputbytes  [  7 ]  ) 


f ileend=l ; 


} 

} 

/*  printf ( "linepos  is  %d\n\r" , linepos ) ;  */ 
writelines  ( ) ; 

exit (0) ; 


int  split ( ) 

{ 

int  i ,  j  ; 

unsigned  short  mywords [NUMWORDS ]  ; 
unsigned  short  mymask; 
unsigned  short  curchar; 
unsigned  short  p[22]; 

/*  change  bytes  to  word  */ 

for  (i=0;i<NUMWORDS;i  +  +  ) 

{ 

mywords  [i  ]  =  (  (inpu  tbytes  [  (l+(i*2)  )  ]  )«8) 

} 


mymask=0xl ; 

for  (i=0;i<16;i  +  +  ) 

{ 

curchar=0 ; 

for  ( j=3; j> (-1) ; j  — ) 

{ 

if (  (mywords [j ]  &  mymask)  !=0) 

{ 

curchar  =  curchar  |  0x1; 

} 

if  (j>0) 

{ 

curchar=curchar  <<  1; 

} 

} 

if ( curchar  <  10 ) 

{ 

curchar  =  curchar  +  0x30; 

} 

else 

{ 

curchar  =  curchar  +  0x41  -  10; 

} 

myputc (curchar, i) ; 
mymask=mymask  <<  1; 

} 

for  (i=16;i<22;i++) 

{ 

p[i]=0; 

} 


I  (  (inputbytes [  (i*2 ) ] ) ) 
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for  (i=3 ; i>  (-1 ) ; i--) 

{ 

mymask^Oxl ; 

for  ( j  =0 ; j <1 6; j  +  +  ) 

{ 

if ( (mymask  &  mywords [ i ] ) ! =0 ) 

{ 

if((j==0)  II  (j==l)  II  (j==3)  II  (j==4)  II  (j==6)  II  (j==8) 

II  (j==10)  II  (j==ll)  II  (j==13)  II  (j==15)) 

{ 

p[16]=p[16]  "  (0x1); 

} 

if((j==0)  II  (j==2)  II  (j==3)  II  (j==5)  II  (j==6)  II  (j==9) 

II  (j==10)  II  (j==12)  II  (j==13)) 

{ 

p[17]=p[17]  -  (0x1); 

} 

if((j==l)  II  (j==2)  II  (j==3)  II  (j==7)  II  (j==8)  II  (j==9) 

II  (j==10)  II  (j==14)  II  (j==15)) 

{ 

p[18]=p[18]  "  (0x1); 

} 

if((j==4)  II  (j==5)  II  (j==6)  II  (j==7)  II  (j==8)  II  (j==9) 

II  (j==10)) 

{ 

p[19]=p[19]  "  (0x1); 

} 

if((j==ll)  II  (j==12)  II  (j==13)  II  (j==14)  II  (j==15)) 

{ 

p[20]=p[20]  "  (0x1); 

} 

p[21]=p[21]  -  (0x1); 

} 

mymask=mymask  <<  1; 

} 

inymask=0xl  ; 

for  ( j  =1 6; j<21 ; j  ++) 

{ 

if((p[j]  &  mymask)  !=0) 

{ 

p[21]=p[21]  -  (0x1); 

} 

} 

if(i>0)  { 

for ( j  =1 6; j<22 ; j  ++) 

{ 

p[j]=p[j]  «  1; 

} 

} 

} 

for  (i=16;i<22;i++) 

{ 

myputc (bin2ascii (p [i] ) , i) ; 

} 

linepos — ; 
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} 

void  myputc (unsigned  char  mychar,  int  mybin) 

{ 

if  (linepos  <  0) 

{ 

/*  flush  buffer  to  files  */ 
writelines ( ) ; 
linepos  =  63; 
clearlines ( ) ; 

} 


outputhex [mybin] [linepos] =mychar; 


void  writelines  0 

{ 

int  i , j  ; 

for (i=0; i<NUMOUTPUT; i++) 

{ 

fprintf (outputfile, "defparam  ram%d. INIT_%02X  =  25 6 ' h" , i , linecnt ) 
for (j=0; j<HEXPERLINE; j++) 

{ 

putc (outputhex [i]  [ j ] , outputfile) ; 

} 

fprintf (outputfile,  " ;  \n" )  ; 

} 

linecnt++ ; 


void  clearlines 0 

{ 

int  i , j  ; 

for (1=0; i<NUMOUTPUT; i++) 

{ 

for (j=0; j<HEXPERLINE; j++) 

{ 

outputhex [i] [j]=0x30; 


/*  charl  is  the  high  4  bits  */ 
unsigned  char  ascii2bin  (int  charl,  int  char2) 
{ 


unsigned  char  i; 
i=0; 

if  (charl  ==  EOF) 
return  0; 
if  (char2  ==  EOF) 
return  0; 

if  (charl  <  0x41)  /*  0x41  =  ASCII  A  */ 

{ 


i= ( charl 


0x30)  ; 
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else 


{ 

i=(charl  -  0x41  +  10); 

} 

1=1  «  4; 

if  (char2  <  0x41)  /*  0x41  =  ASCII  A  */ 

{ 

i=i+(char2  -  0x30); 

} 

else 

{ 

i=i+(char2  -  0x41  +  10); 

} 


return  i; 

} 


unsigned  char  bin2ascii (unsigned  char  myint) 

{ 

unsigned  char  i; 

if (myint  >  15 ) 

printf ("%d", myint ) ; 
if  (myint  <  10) 

{i  =  myint  +  0x30;} 
else 

{i  =  myint  +  0x41  -  10;} 
return  i; 


B,  LIBXR16.C 

/* 

*  libxrlO.c  --  minimal  xrl6  runtime  library 

•k 

*  Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

*  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

*  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

*  See  the  LICENSE  file. 

*/ 

/*  modified  08/25/2008  by  David  Dwiggins  */ 

typedef  unsigned  Word; 

extern  int  main(); 
extern  Word  _end; 

void  _zeromem() ; 

Word*  _tos ( ) ; 

/*  Processor  reset:  zero  memory  and  call  main. 

*/ 

int  _reset  ( )  { 

/*  08/25/2008  ded,  comment  out  zeromem.  BRAM  already  in  a  known  state*/ 
/*  _zeromem();  */ 

main ( ) ; 

/*  dynamic  halt  */ 
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for  (;;) 


} 


/*  Reset  memory  to  consistent  known  state. 
*/ 


void  _zeromem()  { 

Word*  p  =  &_end; 
Word*  end  =  tos(); 


} 


for  (  ;  p  <  end;  ++p) 

*p  =  0; 


/*  Interrupts  have  not  been  tested. 
*/ 

int  _interrupt()  { 
return  0; 

} 


/*  Too  clever  way  to  return  address  of  approximately  the  top  of  stack; 
*  ignore  compiler  warning  on  returning  address  of  argument. 

*/ 

Word*  _tos (Word  arg)  { 
return  &arg; 

} 


/*  Multiply  unsigned  times  unsigned. 

*/ 

unsigned  mulu2 (unsigned  a,  unsigned  b)  { 
unsigned  w  =  0; 

for  (  ;  a;  a  >>=  1)  { 

if  (a&l)  w  +=  b; 
b  «=  1; 

} 

return  w; 

} 


/*  This  must  be  the  last  symbol  in  the  last  module  "linked"  into  the  load 
*  image . 

*/ 

Word  end; 
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APPENDIX  D:  ASSEMBLY  FILES 


This  appendix  contains  the  assembly  file  reset.s  used  by  the  linker  when 
generating  an  XSOC  binary  file.  Reset.s  initializes  the  stack  and  also  contains  the 
interrupt  service  routine. 

A,  RESET.S 


;  reset.s  --  minimal  xrl6  runtime  library  startup 

;  Copyright  (C)  1999,  2000,  Gray  Research  LLC .  All  rights  reserved. 

;  The  contents  of  this  file  are  subject  to  the  XSOC  License  Agreement; 

;  you  may  not  use  this  file  except  in  compliance  with  this  Agreement. 

;  See  the  LICENSE  file. 

;  This  file  must  be  assembled  first,  so  that  reset  and  interrupt  receive 
;  the  correct  addresses: 

;  0000  reset  vector 

;  0010  interrupt  vector;  interrupts  are  untested 

;  tabs=4 

global  _ reset 

global  _ interrupt 

global  _mulu2 

align  16 
reset : 

;  perhaps  should  zero  all  regs 
;  08/01/2008  ded 

;  stack  pointer  set  at  last  word  in  8k  memory 
;  for  CFTP 
lea  sp, Oxlf fe 
j  _ reset 

align  16 
interrupt : 

;  save  registers 
sw  rl ,  saveregs  +  2 
lea  rl,saveregs 
sw  r2 , 4 (rl ) 
sw  r3, 6 (rl) 
sw  r4 , 8  (rl ) 
sw  r5, 10 (rl ) 
sw  r6, 12 (rl ) 
sw  r7 , 1 4 ( rl ) 
sw  r8 , 1 6 ( rl ) 
sw  r9, 18 (rl ) 
sw  rl 0 , 20  (r 1 ) 
sw  rl 1 , 22  (r 1 ) 
sw  rl2, 24  (rl) 
sw  rl3, 26  (rl) 

;  rl4  is  the  (reserved)  interrupt  return  address 
sw  rl5, 30  (rl) 
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;  use  interrupted  function's  stack 
call  _ interrupt 

;  reload  registers 
lea  rl,saveregs 

; Iw  r2,4(rl)  ;  modified  08/31/2008  ded 

; Iw  r3,6(rl)  ;  add  int  ack 

Iw  r4, 8 (rl) 

Iw  r5, 10 (rl) 

Iw  r6, 12 (rl ) 

Iw  r7, 14 (rl) 

Iw  r8 , 1 6 ( rl ) 

Iw  r9, 18 (rl) 

Iw  rlO, 20  (rl) 

Iw  rll, 22  (rl) 

Iw  rl2,24 (rl) 

Iw  rl3,26(rl) 

;  rl4  is  the  (reserved)  interrupt  return  address 
Iw  rl5,30(rl)  ;  unnecessary  but  doesn't  hurt  to  be  sure 
lea  r3,0xff70  ;  interrupt  controller  at  ID  3  +10h 
add!  r2 , rO, 1 

sb  r2,0(r3)  ;  write  a  1  to  the  ack  register 

Iw  r2,4 (rl) 

Iw  r3 , 6 (r 1 ) 

Iw  rl ,  saveregs  +  2 

;  return  from  interrupt 
reti 

saveregs : 

bss  32 


198 


APPENDIX  E:  XSOC  LICENSE  AGREEMENT 


This  appendix  contains  the  XSOC  License  Agreement.  The  CFTP 
microcontroller  is  built  upon  XSOC;  its  use  requires  acceptance  of  the  XSOC  License 
Agreement. 


XSOC  License  Agreement  Version  1.0 

Copyright  (C)  1999,  2000,  Gray  Research  LLC.  All  rights  reserved. 

This  is  a  legal  agreement  between  You  and  Gray  Research  LLC. 

By  accepting,  receiving,  and/or  using  the  Work,  as  defined  below,  you 
are  agreeing  to  be  bound  by  the  terms  of  this  Agreement.  If  you  do  not 
agree  to  the  terms  of  this  Agreement,  no  license  in  the  Work  is  granted, 
and  you  must  destroy,  delete  or  otherwise  remove  your  copy  of  the  Work 
and  any  portion  thereof. 


INTRODUCTION. 

The  XSOC  Project  is  a  collection  of  experimental  hardware  and  software 
designs  and  specifications,  cited  in  the  Circuit  Cellar  magazine  series, 
"Building  a  RISC  System  in  an  FPGA",  and  providing  an  example  for  the 
noble  purpose  of  teaching  computer  design. 

DEFINITIONS . 

1.  The  "Company"  is  Gray  Research  LLC. 

2.  The  "Web  Site"  is  on  the  World  Wide  Web  at  http://www.fpgacpu.org, 
or  at  such  other  location  as  Gray  Research  may  designate  from  time 
to  time. 

3.  "You"  specifies  your  person,  company,  or  educational  institution. 

4.  The  "Work"  consists  of  the  "Sources"  (the  documentation, 
specifications,  schematics,  source  code,  and  scripts  that  comprise 
the  preferred  editable  representation  of  the  XSOC  Project),  together 
with  the  "Outputs"  derived  from  these  Sources,  including  any  program 
binaries,  programmable  logic  device  configuration  data,  net  lists, 
mask  works,  and  any  derivative  work  based  on  the  foregoing. 

5.  An  "Excerpt"  of  the  Work  is  a  portion  of  the  Sources,  consisting  of: 

a)  if  schematics,  up  to  two  original  schematic  sheets; 

b)  if  source  code,  up  to  fifty  lines  of  original  source  code. 

c)  if  neither  schematics  nor  source  code,  up  to  two  original  pages. 

TERMS  OF  GRANT. 

The  Company  grants  you  a  revocable,  non-exclusive,  royalty-free,  and 
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non-transferable  license  to  use,  modify,  copy,  and  distribute  the  Work 
subject  to  the  following  terms  and  conditions. 

1.  You  shall  only  use  and  modify  the  Work  for  non-commercial 
educational 

and  research  purposes.  You  shall  not  use  the  Work  in  any 
application 

where  failure  or  error  could  endanger  life  or  property.  You  shall 
not  use  the  Work  in  a  commercial  product.  You  shall  not  modify  the 
Work  to  derive  a  processor  design  whose  instruction  set  semantics  or 
binary  instruction  encoding  is  substantially  compatible  with  any 
commercially  available  processor  or  processor  design. 

2.  You  may  distribute  copies  of  this  entire  Work  (all  files,  without 
modification)  provided  you  do  so  free  of  charge. 

3.  You  may  distribute  an  Excerpt  or  a  modification  to  an  Excerpt 
provided 

you  do  so  free  of  charge,  you  include  this  license,  and  you  clearly 
indicate  and  document  the  Excerpt  as  such,  and/or  your  modifications 
of  the  Work. 

4.  With  the  exception  of  uses  permitted  in  terms  1-3,  you  shall  not 
otherwise  use,  modify,  copy,  or  distribute  the  Work  without  the 
prior  written  consent  of  the  Company.  In  particular,  you  shall  not 
distribute  a  modified  version  of  the  Work  via  the  internet  or  by 
other  means . 

5.  If  any  portion  of  the  Work  becomes  the  subject  of  a  claim  of 
infringement.  Company  may  unilaterally  revoke  this  agreement  and  any 
license  in  the  Work  granted  herein  by  posting  such  notice  at  the 
Web  Site.  If  the  Web  Site  is  or  becomes  inaccessible,  it  is  your 
responsibility  to  use  reasonable  means  to  contact  the  Company  in 
order  to  determine  the  status  of  this  Agreement  or  any  revocation 

of  this  Agreement. 

6.  All  copies  and  distributions  of  the  Work  must  include  the  above 
copyright  notice  and  this  Agreement  in  its  entirety. 

7.  This  Agreement  will  terminate  immediately  upon  your  failure  to 
comply 

with  any  term  or  condition  of  this  Agreement.  Upon  termination 
of  this  Agrement,  you  shall  make  no  further  use  of  the  Work  and 
you  shall  destroy  all  copies  of  the  Work  in  your  possession. 

The  Company  shall  be  entitled  to  any  and  all  remedies  at  law  and 
equity,  including  injunctive  relief,  for  any  breach  of  this 
Agreement 

by  you.  You  agree  to  indemnify  and  hold  the  Company,  its  officers, 
directors,  and  affiliates,  harmless  from  all  claims,  damages,  and 
liabilities  resulting  from  or  incident  to  any  use  of  the  work  by 

you . 


8.  The  license  herein  granted  in  the  Work  is  and  shall  remain 

unilaterally  revocable  by  the  Company  or  its  successors  in  interest 
in  the  Work. 


200 


9.  You  agree  that  any  litigation  arising  under  this  agreement  or  in  any 
way  relating  to  this  work  shall  be  brought  within  the  State  of 
Washington,  and  you  waive  any  objection  as  to  venue  or  jurisdiction 
of 

any  court  located  in  that  State.  The  governing  law  of  this 
agreement 

shall  be  that  of  the  State  of  Washington,  exclusive  of  its  choice 
of  law  principles. 


NO  WARRANTY. 

THE  WORK  IS  PROVIDED  UNDER  THIS  LICENSE  ON  AN  "AS  IS"  BASIS,  WITHOUT 
WARRANTY  OF  ANY  KIND,  EITHER  EXPRESS  OR  IMPLIED.  THE  COMPANY 

SPECIFICALLY 

DISCLAIMS  ANY  WARRANTY  THAT  THE  WORK  IS  FREE  OF  DEFECTS,  MERCHANTABLE, 
FIT  FOR  A  PARTICULAR  PURPOSE,  OR  NON- INFRINGING .  THE  COMPANY  DOES  NOT 
WARRANT  THAT  THIS  WORK  IS  ERROR  FREE  OR  THAT  DEFECTS  WILL  BE  CORRECTED. 
USE  AT  YOUR  OWN  SOLE  RISK.  NO  ORAL  OR  WRITTEN  INFORMATION  GIVEN  BY  THE 
COMPANY  OR  ITS  REPRESENTATIVES  SHALL  CREATE  A  WARRANTY  INCONSISTENT  WITH 
THIS  AGREEMENT.  UNDER  NO  CIRCUMSTANCES  SHALL  THE  COMPANY  BE  LIABLE  TO 
YOU  OR  OTHERS  FOR  DAMAGES  OF  ANY  KIND  ARISING  FROM  ANY  USE  OF  THIS  WORK, 
EVEN  IF  ADVISED  OF  POSSIBILITY  OF  SUCH  DAMAGE.  NO  USE  OF  THIS  WORK  IS 
AUTHORIZED  EXCEPT  UNDER  THIS  DISCLAIMER. 


CONTACT  INFORMATION. 

Jan  Gray 

President,  Gray  Research  LLC 
P.O.  Box  6156 
Bellevue,  WA 
98008-1156 

email:  xsoc@fpgacpu.org 
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